diff options
author | Adam Chlipala <adam@chlipala.net> | 2012-06-03 11:29:31 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2012-06-03 11:29:31 -0400 |
commit | 797db05343b520b16ea4f8eeab5fea6255d3284d (patch) | |
tree | deacf0a9ebedccbc3e22fdb143c51d3dcc153a5b /lib/ur/top.urs | |
parent | 858481a426ea3873440c3bed30eb563f8cf3480e (diff) |
Lighter-weight encoding of window function use
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 def3bc63..489e744d 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} - -> 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 + -> 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 val eqNullable' : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} - -> aw ::: {Unit} -> t ::: Type -> sql_injectable (option t) - -> sql_exp tables agg exps aw (option t) + -> t ::: Type -> sql_injectable (option t) + -> sql_exp tables agg exps (option t) -> option t - -> sql_exp tables agg exps aw bool + -> sql_exp tables agg exps bool val mkRead' : t ::: Type -> (string -> option t) -> string -> read t |