Mercurial > urweb
diff src/explify.sml @ 1302:d008c4c43a0a
Flex kinds for type-level tuples; ::_ notation
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 10 Oct 2010 13:07:38 -0400 |
| parents | b4480a56cab7 |
| children | c7b9a33c26c8 |
line wrap: on
line diff
--- a/src/explify.sml Thu Sep 30 18:29:59 2010 -0400 +++ b/src/explify.sml Sun Oct 10 13:07:38 2010 -0400 @@ -44,6 +44,8 @@ | L.KError => raise Fail ("explifyKind: KError at " ^ EM.spanToString loc) | L.KUnif (_, _, ref (SOME k)) => explifyKind k | L.KUnif _ => raise Fail ("explifyKind: KUnif at " ^ EM.spanToString loc) + | L.KTupleUnif (loc, _, ref (SOME k)) => explifyKind k + | L.KTupleUnif _ => raise Fail ("explifyKind: KTupleUnif at " ^ EM.spanToString loc) | L.KRel n => (L'.KRel n, loc) | L.KFun (x, k) => (L'.KFun (x, explifyKind k), loc)