diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-07 14:19:05 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 14:19:05 -0400 |
| commit | a8bc278b2a46d93bec4bf88cd7e56f12a253f061 (patch) | |
| tree | 48c44ad97ea69969e20c00c13a9ae26ec6cf0ad2 /src | |
| parent | 95eb24dfa2e3285c3745677acf481fe19b39ee0a (diff) | |
Parsing DELETE
Diffstat (limited to 'src')
| -rw-r--r-- | src/urweb.grm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index c67035de..61e8d179 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -758,6 +758,15 @@ eterm : LPAREN eexp RPAREN (#1 eexp, s (LPARENleft, RPARENright)) in (EApp (e, sqlexp), loc) end) + | LPAREN DELETE FROM texp CWHERE sqlexp RPAREN + (let + val loc = s (LPARENleft, RPARENright) + + val e = (EVar (["Basis"], "delete"), loc) + val e = (EApp (e, texp), loc) + in + (EApp (e, sqlexp), loc) + end) | UNDER (EWild, s (UNDERleft, UNDERright)) |