diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-12-13 13:00:55 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-13 13:00:55 -0500 |
commit | 2319f2ff07432849cc88956ad92467edd2e8bf5e (patch) | |
tree | 5efa45fb63fd11922b53c5575df691072fcbbeca /lib/ur/top.urs | |
parent | fed3ed6ec617bbfcabcd2a4aab2b6ee6e9571c86 (diff) |
Weakening-type coercions for SQL values
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 2b6248fc..59ffec92 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -139,6 +139,11 @@ val queryX' : tables ::: {{Type}} -> exps ::: {Type} -> ctx ::: {Unit} -> inp :: -> transaction (xml ctx inp [])) -> transaction (xml ctx inp []) +val hasRows : tables ::: {{Type}} -> exps ::: {Type} + -> [tables ~ exps] => + sql_query tables exps + -> transaction bool + val oneOrNoRows : tables ::: {{Type}} -> exps ::: {Type} -> [tables ~ exps] => sql_query tables exps |