diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-06 15:37:38 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 15:37:38 -0500 |
| commit | 2b028daf3ff279b9c68301c031588ab042edddf5 (patch) | |
| tree | 3dc7245cbdb2c517bb9676d83860e4b48f64026a /src/urweb.grm | |
| parent | 27e3c3ba965513dcb3e447cccf6e77ce8c63e90d (diff) | |
Inserted a NULL value
Diffstat (limited to 'src/urweb.grm')
| -rw-r--r-- | src/urweb.grm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index b2f2d486..2482be1b 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -214,7 +214,7 @@ fun tagIn bt = | TRUE | FALSE | CAND | OR | NOT | COUNT | AVG | SUM | MIN | MAX | ASC | DESC - | INSERT | INTO | VALUES | UPDATE | SET | DELETE + | INSERT | INTO | VALUES | UPDATE | SET | DELETE | NULL | CURRENT_TIMESTAMP | NE | LT | LE | GT | GE @@ -1251,6 +1251,9 @@ sqlexp : TRUE (sql_inject (EVar (["Basis"], "True", In s (LBRACEleft, RBRACEright))) | LPAREN sqlexp RPAREN (sqlexp) + | NULL (sql_inject ((EVar (["Basis"], "None", Infer), + s (NULLleft, NULLright)))) + | COUNT LPAREN STAR RPAREN (let val loc = s (COUNTleft, RPARENright) in |