summaryrefslogtreecommitdiff
path: root/src/urweb.grm
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-03-25 16:06:04 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-03-25 16:06:04 -0400
commit1cf8f27e444433cd052c0e84f6519288d182d8a7 (patch)
tree692542b44d3c974920be5c1b7b9c8a708c336dff /src/urweb.grm
parent26eeffeaee9f015cc95430da2f5308ce585a194d (diff)
Subquery FROM items
Diffstat (limited to 'src/urweb.grm')
-rw-r--r--src/urweb.grm8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm
index f11c3cd5..995d4664 100644
--- a/src/urweb.grm
+++ b/src/urweb.grm
@@ -1629,6 +1629,14 @@ fitem : table' ([#1 table'], #2 table')
(#1 fitem1 @ #1 fitem2,
(EApp (e, sqlexp), loc))
end)
+ | LPAREN query RPAREN AS tname (let
+ val loc = s (LPARENleft, RPARENright)
+
+ val e = (EVar (["Basis"], "sql_from_query", Infer), loc)
+ val e = (ECApp (e, tname), loc)
+ in
+ ([tname], (EApp (e, query), loc))
+ end)
tname : CSYMBOL (CName CSYMBOL, s (CSYMBOLleft, CSYMBOLright))
| LBRACE cexp RBRACE (cexp)