diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-06-02 15:35:58 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-06-02 15:35:58 -0400 |
| commit | f4dab2b31d11cc6957c1a64a3ffe6261816d96d4 (patch) | |
| tree | 1e06ff6455bda35dc28fb3f9601270a7f91cdc2e /lib/ur/top.ur | |
| parent | b3dec3df4038cf76821f43717673456c7f691030 (diff) | |
Track whether SQL expressions may use window functions, in preparation for actual window function support
Diffstat (limited to 'lib/ur/top.ur')
| -rw-r--r-- | lib/ur/top.ur | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/ur/top.ur b/lib/ur/top.ur index e504204e..60774ba5 100644 --- a/lib/ur/top.ur +++ b/lib/ur/top.ur @@ -376,14 +376,14 @@ fun nonempty [fs] [us] (t : sql_table fs us) = oneRowE1 (SELECT COUNT( * ) > 0 AS B FROM t) fun eqNullable [tables ::: {{Type}}] [agg ::: {{Type}}] [exps ::: {Type}] - [t ::: Type] (_ : sql_injectable (option t)) - (e1 : sql_exp tables agg exps (option t)) - (e2 : sql_exp tables agg exps (option t)) = + [aw ::: {Unit}] [t ::: Type] (_ : sql_injectable (option t)) + (e1 : sql_exp tables agg exps aw (option t)) + (e2 : sql_exp tables agg exps aw (option t)) = (SQL ({e1} IS NULL AND {e2} IS NULL) OR {e1} = {e2}) fun eqNullable' [tables ::: {{Type}}] [agg ::: {{Type}}] [exps ::: {Type}] - [t ::: Type] (_ : sql_injectable (option t)) - (e1 : sql_exp tables agg exps (option t)) + [aw ::: {Unit}] [t ::: Type] (_ : sql_injectable (option t)) + (e1 : sql_exp tables agg exps aw (option t)) (e2 : option t) = case e2 of None => (SQL {e1} IS NULL) |