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.urs | |
| parent | b3dec3df4038cf76821f43717673456c7f691030 (diff) | |
Track whether SQL expressions may use window functions, in preparation for actual window function support
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 489e744d..def3bc63 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -269,15 +269,15 @@ val nonempty : fs ::: {Type} -> us ::: {{Unit}} -> sql_table fs us -> transaction bool val eqNullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} - -> t ::: Type -> sql_injectable (option t) - -> sql_exp tables agg exps (option t) - -> sql_exp tables agg exps (option t) - -> sql_exp tables agg exps bool + -> aw ::: {Unit} -> t ::: Type -> sql_injectable (option t) + -> sql_exp tables agg exps aw (option t) + -> sql_exp tables agg exps aw (option t) + -> sql_exp tables agg exps aw bool val eqNullable' : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} - -> t ::: Type -> sql_injectable (option t) - -> sql_exp tables agg exps (option t) + -> aw ::: {Unit} -> t ::: Type -> sql_injectable (option t) + -> sql_exp tables agg exps aw (option t) -> option t - -> sql_exp tables agg exps bool + -> sql_exp tables agg exps aw bool val mkRead' : t ::: Type -> (string -> option t) -> string -> read t |