From 92865c5cf94bde77b7250450042e915a48e0025d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 13 Sep 2008 19:49:53 -0400
Subject: queryX

---
 src/explify.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/explify.sml')

diff --git a/src/explify.sml b/src/explify.sml
index 142ddfcb..76ef9551 100644
--- a/src/explify.sml
+++ b/src/explify.sml
@@ -49,7 +49,7 @@ fun explifyCon (c, loc) =
     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)
-- 
cgit v1.2.3