diff options
Diffstat (limited to 'lib/ur/list.ur')
| -rw-r--r-- | lib/ur/list.ur | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/ur/list.ur b/lib/ur/list.ur index 9e2550ca..58f9e23e 100644 --- a/lib/ur/list.ur +++ b/lib/ur/list.ur @@ -230,9 +230,10 @@ fun app [m] (_ : monad m) [a] f = fun mapQuery [tables ::: {{Type}}] [exps ::: {Type}] [t ::: Type] [tables ~ exps] (q : sql_query tables exps) (f : $(exps ++ map (fn fields :: {Type} => $fields) tables) -> t) = - query q - (fn fs acc => return (f fs :: acc)) - [] + ls <- query q + (fn fs acc => return (f fs :: acc)) + []; + return (rev ls) fun assoc [a] [b] (_ : eq a) (x : a) = let |