Mercurial > urweb

diff lib/ur/top.urs @ 1110:7fc4e0087e50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper 404 generation
author Adam Chlipala <adamc@hcoop.net>
date Sat, 02 Jan 2010 13:31:59 -0500
parents 8d3aa6c7cee0
children ad15700272f6
line wrap: on
line diff
--- a/lib/ur/top.urs	Fri Jan 01 12:48:06 2010 -0500
+++ b/lib/ur/top.urs	Sat Jan 02 13:31:59 2010 -0500
@@ -148,7 +148,15 @@
               -> ($(exps ++ map (fn fields :: {Type} => $fields) tables)
                   -> transaction (xml ctx inp []))
               -> transaction (xml ctx inp [])
-                       
+val queryX1' : nm ::: Name -> fs ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type}
+              -> sql_query [nm = fs] []
+              -> ($fs -> transaction (xml ctx inp []))
+              -> transaction (xml ctx inp [])
+val queryXE' : exps ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type}
+              -> sql_query [] exps
+              -> ($exps -> transaction (xml ctx inp []))
+              -> transaction (xml ctx inp [])
+
 val hasRows : tables ::: {{Type}} -> exps ::: {Type}
               -> [tables ~ exps] =>
     sql_query tables exps