diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-09 12:31:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-09 12:31:56 -0400 |
| commit | a8cf53e348e3b6d99a66a897f90de9aa523c9b40 (patch) | |
| tree | dddbb02bac0b5dae304255f3ba1f8f95d7af21a6 /src/urweb.grm | |
| parent | bbe4225bd2c99d8f3e279911dd0b52bbd2281646 (diff) | |
Made type class system very general; demo compiles
Diffstat (limited to 'src/urweb.grm')
| -rw-r--r-- | src/urweb.grm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index fb31bd18..16a77150 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -660,8 +660,9 @@ sgi : CON SYMBOL DCOLON kind ((SgiConAbs (SYMBOL, kind), s (CONleft, end) | CLASS SYMBOL (let val loc = s (CLASSleft, SYMBOLright) + val k = (KArrow ((KType, loc), (KType, loc)), loc) in - (SgiClassAbs (SYMBOL, (KWild, loc)), loc) + (SgiClassAbs (SYMBOL, k), loc) end) | CLASS SYMBOL DCOLON kind (let val loc = s (CLASSleft, kindright) |