diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-02-03 11:12:48 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-02-03 11:12:48 -0500 |
commit | b0cff3eab8287308dde58dd7e288e654b9fa7b5b (patch) | |
tree | a9b87bab442a4f5a9281d9802e4e9f67cb8fa5e9 | |
parent | 811620fb33d82c4c9c46df13730bde00eba1b7af (diff) |
Allow negative int patterns
-rw-r--r-- | src/urweb.grm | 1 |
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) |