summaryrefslogtreecommitdiff
path: root/src/lacweb.grm
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-08-21 12:54:09 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-08-21 12:54:09 -0400
commit808b837c2243cb07b2979c030fabd0963fad8af0 (patch)
tree587d450a51086ad3afb376bb6cd78871726c7464 /src/lacweb.grm
parentbe0c07faab159e4c0d924c9656aa2cb47a363bef (diff)
GROUP BY added to query type, with trivial parsing, for now
Diffstat (limited to 'src/lacweb.grm')
-rw-r--r--src/lacweb.grm6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm
index 1eb85181..1431f792 100644
--- a/src/lacweb.grm
+++ b/src/lacweb.grm
@@ -654,6 +654,12 @@ query : SELECT select FROM tables wopt
(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)