Mercurial > urweb

comparison src/urweb.grm @ 544:4154b4dc62c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish documenting queries; remove a stray [unit] argument
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Dec 2008 10:02:04 -0500
parents ae03d09043c1
children 5d494183ca89
comparison
equal deleted inserted replaced
543:c01415a171ed 544:4154b4dc62c6
1265 s (NULLleft, NULLright)))) 1265 s (NULLleft, NULLright))))
1266 1266
1267 | COUNT LPAREN STAR RPAREN (let 1267 | COUNT LPAREN STAR RPAREN (let
1268 val loc = s (COUNTleft, RPARENright) 1268 val loc = s (COUNTleft, RPARENright)
1269 in 1269 in
1270 (EApp ((EVar (["Basis"], "sql_count", Infer), loc), 1270 (EVar (["Basis"], "sql_count", Infer), loc)
1271 (ERecord [], loc)), loc)
1272 end) 1271 end)
1273 | sqlagg LPAREN sqlexp RPAREN (let 1272 | sqlagg LPAREN sqlexp RPAREN (let
1274 val loc = s (sqlaggleft, RPARENright) 1273 val loc = s (sqlaggleft, RPARENright)
1275 1274
1276 val e = (EVar (["Basis"], "sql_" ^ sqlagg, Infer), loc) 1275 val e = (EVar (["Basis"], "sql_" ^ sqlagg, Infer), loc)