From 1063981355a5a041793c095c6fd89b91fa0bd579 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 13 Dec 2009 13:00:55 -0500
Subject: Weakening-type coercions for SQL values

---
 lib/ur/top.urs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/ur/top.urs')

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
-- 
cgit v1.2.3