diff options
Diffstat (limited to 'lib/top.urs')
-rw-r--r-- | lib/top.urs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/top.urs b/lib/top.urs index 17ce5c28..add94578 100644 --- a/lib/top.urs +++ b/lib/top.urs @@ -66,3 +66,8 @@ val queryX : tables ::: {{Type}} -> exps ::: {Type} -> ctx ::: {Unit} -> ($(exps ++ fold (fn nm (fields :: {Type}) acc => [nm] ~ acc => [nm = $fields] ++ acc) [] tables) -> xml ctx [] []) -> transaction (xml ctx [] []) + +val oneOrNoRows : tables ::: {{Type}} -> exps ::: {Type} -> sql_query tables exps + -> tables ~ exps + -> transaction + (option $(exps ++ fold (fn nm (fields :: {Type}) acc => [nm] ~ acc => [nm = $fields] ++ acc) [] tables)) |