Mercurial > urweb

comparison lib/ur/top.ur @ 1321:4172863d049d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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