Mercurial > urweb
diff src/explify.sml @ 334:9601c717d2f3
queryX
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 13 Sep 2008 19:49:53 -0400 |
parents | 42dfb0d61cf0 |
children | e976b187d73a |
line wrap: on
line diff
--- a/src/explify.sml Sat Sep 13 14:58:57 2008 -0400 +++ b/src/explify.sml Sat Sep 13 19:49:53 2008 -0400 @@ -49,7 +49,7 @@ case c of L.TFun (t1, t2) => (L'.TFun (explifyCon t1, explifyCon t2), loc) | L.TCFun (_, x, k, t) => (L'.TCFun (x, explifyKind k, explifyCon t), loc) - | L.TDisjoint (_, _, c) => explifyCon c + | L.TDisjoint (_, _, _, c) => explifyCon c | L.TRecord c => (L'.TRecord (explifyCon c), loc) | L.CRel n => (L'.CRel n, loc)