diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-13 10:30:45 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-13 10:30:45 -0400 |
commit | 2ad30811b217c0880f8ea65a7da0f755ec0cf9e6 (patch) | |
tree | a8c55c74f05acc784c8d0afb9237d867b0e3e680 /src/urweb.grm | |
parent | a12b7d5677662153dd69c14945c0d88f447425a3 (diff) |
foldTR2
Diffstat (limited to 'src/urweb.grm')
-rw-r--r-- | src/urweb.grm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index c8dd5698..ff53b4b8 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -543,6 +543,13 @@ carg : SYMBOL DCOLON kind (fn (c, k) => ((CAbs (SYMBOL, SOME kind, c), loc), (KArrow (kind, k), loc)) end) + | UNDER DCOLON kind (fn (c, k) => + let + val loc = s (UNDERleft, kindright) + in + ((CAbs ("_", SOME kind, c), loc), + (KArrow (kind, k), loc)) + end) | cargp (cargp) cargp : SYMBOL (fn (c, k) => @@ -552,6 +559,13 @@ cargp : SYMBOL (fn (c, k) => ((CAbs (SYMBOL, NONE, c), loc), (KArrow ((KWild, loc), k), loc)) end) + | UNDER (fn (c, k) => + let + val loc = s (UNDERleft, UNDERright) + in + ((CAbs ("_", NONE, c), loc), + (KArrow ((KWild, loc), k), loc)) + end) | LPAREN SYMBOL DCOLON kind RPAREN (fn (c, k) => let val loc = s (LPARENleft, RPARENright) |