Mercurial > urweb
diff src/lacweb.grm @ 224:cb8a68964ebb
GROUP BY added to query type, with trivial parsing, for now
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 21 Aug 2008 12:54:09 -0400 |
| parents | bbe5899a9585 |
| children | 5ac2cf59b839 |
line wrap: on
line diff
--- a/src/lacweb.grm Thu Aug 21 12:49:29 2008 -0400 +++ b/src/lacweb.grm Thu Aug 21 12:54:09 2008 -0400 @@ -654,6 +654,12 @@ (ERecord tables, loc)), ((CName "Where", loc), wopt), + ((CName "GroupBy", loc), + (ECApp ((EVar (["Basis"], "sql_subset_all"), loc), + (CWild (KRecord (KRecord (KType, loc), loc), + loc), loc)), loc)), + ((CName "Having", loc), + hopt), ((CName "SelectFields", loc), (ECApp ((EVar (["Basis"], "sql_subset"), loc), sel), loc))], loc)