[project @ 2001-03-08 18:03:34 by qrczak]

[ghc-hetmet.git] / ghc / compiler / deSugar / MatchCon.lhs

diff --git a/ghc/compiler/deSugar/MatchCon.lhs b/ghc/compiler/deSugar/MatchCon.lhs
index 11918c1..4094342 100644 (file)
--- a/ghc/compiler/deSugar/MatchCon.lhs
+++ b/ghc/compiler/deSugar/MatchCon.lhs
@@ -1,4 +1,4 @@
-%
+
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
 \section[MatchCon]{Pattern-matching constructors}
@@ -18,9 +18,8 @@ import DsUtils
 import Id              ( Id )
 import CoreSyn
 import Type            ( mkTyVarTys )
-import Util            ( equivClassesByUniq )
-import Unique          ( Uniquable(..), Unique )
-import Outputable
+import ListSetOps      ( equivClassesByUniq )
+import Unique          ( Uniquable(..) )
 \end{code}
 
 We are confronted with the first column of patterns in a set of