diff lib/ur/top.urs @ 1363:7dd8a6704265

Top.queryI1; fix definition of uw_Basis_minTime
author Adam Chlipala <adam@chlipala.net>
date Fri, 24 Dec 2010 16:41:10 -0500
parents 02fc16faecf3
children d328983dc5a6
line wrap: on
line diff
--- a/lib/ur/top.urs	Fri Dec 24 12:51:46 2010 -0500
+++ b/lib/ur/top.urs	Fri Dec 24 16:41:10 2010 -0500
@@ -152,6 +152,11 @@
                  -> 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