Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
1320:add5ae41969e | 1321:4172863d049d |
---|---|
226 fun queryL [tables] [exps] [tables ~ exps] (q : sql_query [] tables exps) = | 226 fun queryL [tables] [exps] [tables ~ exps] (q : sql_query [] tables exps) = |
227 query q | 227 query q |
228 (fn r ls => return (r :: ls)) | 228 (fn r ls => return (r :: ls)) |
229 [] | 229 [] |
230 | 230 |
231 fun queryL1 [t ::: Name] [fs ::: {Type}] (q : sql_query [] [t = fs] []) = | |
232 query q | |
233 (fn r ls => return (r.t :: ls)) | |
234 [] | |
235 | |
231 fun queryI [tables ::: {{Type}}] [exps ::: {Type}] | 236 fun queryI [tables ::: {{Type}}] [exps ::: {Type}] |
232 [tables ~ exps] (q : sql_query [] tables exps) | 237 [tables ~ exps] (q : sql_query [] tables exps) |
233 (f : $(exps ++ map (fn fields :: {Type} => $fields) tables) | 238 (f : $(exps ++ map (fn fields :: {Type} => $fields) tables) |
234 -> transaction unit) = | 239 -> transaction unit) = |
235 query q | 240 query q |