summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-02-03 11:12:48 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2011-02-03 11:12:48 -0500
commitb0cff3eab8287308dde58dd7e288e654b9fa7b5b (patch)
treea9b87bab442a4f5a9281d9802e4e9f67cb8fa5e9
parent811620fb33d82c4c9c46df13730bde00eba1b7af (diff)
Allow negative int patterns
-rw-r--r--src/urweb.grm1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm
index 75599235..bed80c98 100644
--- a/src/urweb.grm
+++ b/src/urweb.grm
@@ -1323,6 +1323,7 @@ pterm : SYMBOL (PVar SYMBOL, s (SYMBOLleft, SYMBOLright
| cpath (PCon (#1 cpath, #2 cpath, NONE), s (cpathleft, cpathright))
| UNDER (PWild, s (UNDERleft, UNDERright))
| INT (PPrim (Prim.Int INT), s (INTleft, INTright))
+ | MINUS INT (PPrim (Prim.Int (~INT)), s (MINUSleft, INTright))
| STRING (PPrim (Prim.String STRING), s (STRINGleft, STRINGright))
| CHAR (PPrim (Prim.Char CHAR), s (CHARleft, CHARright))
| LPAREN pat RPAREN (pat)