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 | 1063981355a5a041793c095c6fd89b91fa0bd579 (patch) | |
| tree | 5efa45fb63fd11922b53c5575df691072fcbbeca /lib/ur/top.urs | |
| parent | 46d562fc3d06a5ef8b17e90c7a4dfd0547757294 (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 |