diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-22 11:15:37 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-22 11:15:37 -0400 |
| commit | cf42469778104a3079191c6e871954ffb3b5c957 (patch) | |
| tree | d366eb0c432244981b3d0a9eaae15e7b0273125e /lib/ur/top.urs | |
| parent | 3d97fb2839259bada8b730207d4b9de58659cfeb (diff) | |
Checking deadline; sign-in
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index b6734cd3..80d402b1 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -151,6 +151,11 @@ val oneOrNoRows1 : nm ::: Name -> fs ::: {Type} -> sql_query [nm = fs] [] -> transaction (option $fs) +val oneOrNoRowsE1 : tab ::: Name -> nm ::: Name -> t ::: Type + -> [[tab] ~ [nm]] => + sql_query [tab = []] [nm = t] + -> transaction (option t) + val oneRow : tables ::: {{Type}} -> exps ::: {Type} -> [tables ~ exps] => sql_query tables exps |