diff options
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 *) |