Mercurial > urweb

diff lib/ur/top.urs @ 1072:9001966ae1c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Weakening-type coercions for SQL values
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Dec 2009 13:00:55 -0500
parents b89e3d8731ed
children d89f98f0b4bb
line wrap: on
line diff
--- a/lib/ur/top.urs	Sun Dec 13 11:28:47 2009 -0500
+++ b/lib/ur/top.urs	Sun Dec 13 13:00:55 2009 -0500
@@ -139,6 +139,11 @@
                   -> 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