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 | 426f4427ff7a2d58e86f533ad8bb79a0b6b89d31 (patch) | |
| tree | a9b87bab442a4f5a9281d9802e4e9f67cb8fa5e9 /src/urweb.grm | |
| parent | 9028536a2743ac820e4c3a7c04d0a4f1d336eeb8 (diff) | |
Allow negative int patterns
Diffstat (limited to 'src/urweb.grm')
| -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) |