diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-13 14:34:18 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-13 14:34:18 -0500 |
| commit | 1589307fcb887ec55b5baea7445747b479a665d2 (patch) | |
| tree | d0e80d87e37b478abae9baf9012b125900f0557f /lib/ur/top.urs | |
| parent | b225596addee1a3cfd6c3189cff923e7f0e8f7c9 (diff) | |
Fixing a bug in DInitializer elaboration
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 59ffec92..57bc2b1e 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -173,6 +173,9 @@ val oneRowE1 : tabs ::: {Unit} -> nm ::: Name -> t ::: Type sql_query (mapU [] tabs) [nm = t] -> transaction t +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) |