diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-10-10 13:07:38 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-10-10 13:07:38 -0400 |
| commit | bfeac162a328dba937a28e747e4fc4006fac500c (patch) | |
| tree | 1d0f355dec824a81d80e9e838e0cae8845f8e179 /src/explify.sml | |
| parent | 81934ea4c2cf2260b6000e9be4d13e328204929a (diff) | |
Flex kinds for type-level tuples; ::_ notation
Diffstat (limited to 'src/explify.sml')
| -rw-r--r-- | src/explify.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/explify.sml b/src/explify.sml index 4f4f83e1..cf6c491c 100644 --- a/src/explify.sml +++ b/src/explify.sml @@ -44,6 +44,8 @@ fun explifyKind (k, loc) = | 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) |