diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-08-22 12:55:18 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-08-22 12:55:18 -0400 |
| commit | 3a3efad7e3706ecdeabffadbe9a5631c30af2da0 (patch) | |
| tree | 1d7e3ef3f5bbca99b53ac3ee3b66d934c22f1d0d /lib/ur/list.urs | |
| parent | 0014d8534ad3c3bbed2b02b62843eb62169f04b5 (diff) | |
Convert to requiring explicit 'rpc' marker
Diffstat (limited to 'lib/ur/list.urs')
| -rw-r--r-- | lib/ur/list.urs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ur/list.urs b/lib/ur/list.urs index 1b0fced9..ece85e8c 100644 --- a/lib/ur/list.urs +++ b/lib/ur/list.urs @@ -43,6 +43,11 @@ val all : a ::: Type -> (a -> bool) -> t a -> bool 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 *) |