Mercurial > urweb
diff lib/ur/top.ur @ 1321:4172863d049d
queryL1 and List.sort
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 20 Nov 2010 10:45:22 -0500 |
parents | 61c3139eab12 |
children | 02fc16faecf3 |
line wrap: on
line diff
--- a/lib/ur/top.ur Sat Nov 20 09:48:03 2010 -0500 +++ b/lib/ur/top.ur Sat Nov 20 10:45:22 2010 -0500 @@ -228,6 +228,11 @@ (fn r ls => return (r :: ls)) [] +fun queryL1 [t ::: Name] [fs ::: {Type}] (q : sql_query [] [t = fs] []) = + query q + (fn r ls => return (r.t :: ls)) + [] + fun queryI [tables ::: {{Type}}] [exps ::: {Type}] [tables ~ exps] (q : sql_query [] tables exps) (f : $(exps ++ map (fn fields :: {Type} => $fields) tables)