From 7865cb372d95c42542d59cbcf83ba541b0ab3f8a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 24 Feb 2009 12:01:24 -0500
Subject: Switch to TDisjoint from CDisjoint; still need to implement
 obligation generation at EDisjoint uses

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

(limited to 'src/elab_err.sml')

diff --git a/src/elab_err.sml b/src/elab_err.sml
index 8892674c..221e4981 100644
--- a/src/elab_err.sml
+++ b/src/elab_err.sml
@@ -40,7 +40,7 @@ val simplCon = U.Con.mapB {kind = fn _ => fn k => k,
                            con = fn env => fn c =>
                                               let
                                                   val c = (c, ErrorMsg.dummySpan)
-                                                  val (c', _) = Disjoint.hnormCon (env, Disjoint.empty) c
+                                                  val c' = ElabOps.hnormCon env c
                                               in
                                                   (*prefaces "simpl" [("c", P.p_con env c),
                                                                     ("c'", P.p_con env c')];*)
-- 
cgit v1.2.3