diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-02-03 21:04:12 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-02-03 21:04:12 -0500 |
| commit | b9d68f77db05b61f29dba9a5680d4875b95e0e2f (patch) | |
| tree | 0d7561a584be03f1fbd5a3297a101e3c54bf7ba9 /lib/ur/basis.urs | |
| parent | b0cff3eab8287308dde58dd7e288e654b9fa7b5b (diff) | |
Subqueries may always return NULL
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index da703d40..795b4f9a 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -529,9 +529,10 @@ val sql_nullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> -> sql_exp tables agg exps t -> sql_exp tables agg exps (option t) -val sql_subquery : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> nm ::: Name -> t ::: Type +val sql_subquery : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> nm ::: Name -> t ::: Type -> nt ::: Type + -> nullify t nt -> sql_query tables agg [] [nm = t] - -> sql_exp tables agg exps t + -> sql_exp tables agg exps nt (*** Executing queries *) |