Mercurial > urweb

diff lib/ur/list.urs @ 908:ed06e25c70ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to requiring explicit 'rpc' marker
author Adam Chlipala <adamc@hcoop.net>
date Sat, 22 Aug 2009 12:55:18 -0400
parents 1c2f335297b7
children b873feb3eb52
line wrap: on
line diff
--- a/lib/ur/list.urs	Tue Aug 11 12:01:54 2009 -0400
+++ b/lib/ur/list.urs	Sat Aug 22 12:55:18 2009 -0400
@@ -43,6 +43,11 @@
 val app : m ::: (Type -> Type) -> monad m -> a ::: Type
           -> (a -> m unit) -> t a -> m unit
 
+val mapQuery : tables ::: {{Type}} -> exps ::: {Type} -> t ::: Type
+               -> [tables ~ exps] =>
+    sql_query tables exps
+    -> ($(exps ++ map (fn fields :: {Type} => $fields) tables) -> t)
+    -> transaction (list t)
 
 (** Association lists *)