From 15aa6f21492886d96545da1e0b0e5f8e5d796c8d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 24 Dec 2010 16:41:10 -0500
Subject: Top.queryI1; fix definition of uw_Basis_minTime

---
 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 74b04ed1..d86ae553 100644
--- a/lib/ur/top.urs
+++ b/lib/ur/top.urs
@@ -152,6 +152,11 @@ val queryI : tables ::: {{Type}} -> exps ::: {Type}
                  -> transaction unit)
              -> transaction unit
 
+val queryI1 : nm ::: Name -> fs ::: {Type}
+              -> sql_query [] [nm = fs] []
+              -> ($fs -> transaction unit)
+              -> transaction unit
+
 val queryX : tables ::: {{Type}} -> exps ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type}
              -> [tables ~ exps] =>
              sql_query [] tables exps
-- 
cgit v1.2.3