diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-11-20 10:45:22 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-11-20 10:45:22 -0500 |
| commit | 61c8fdf76c28f65b8b483f68d2d1f5597fdf58ce (patch) | |
| tree | e61d2420230a82c747cb1a257ecb129179d95019 /lib/ur/top.ur | |
| parent | f21f9e29d19a8b241c1d6d790904001fdf384d59 (diff) | |
queryL1 and List.sort
Diffstat (limited to 'lib/ur/top.ur')
| -rw-r--r-- | lib/ur/top.ur | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ur/top.ur b/lib/ur/top.ur index ae6cb74a..32d06a43 100644 --- a/lib/ur/top.ur +++ b/lib/ur/top.ur @@ -228,6 +228,11 @@ fun queryL [tables] [exps] [tables ~ exps] (q : sql_query [] tables exps) = (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) |