[project @ 1998-02-10 14:15:51 by simonpj]

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

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index c9b6bb1..4d16d00 100644 (file)
--- a/ghc/compiler/deSugar/MatchLit.lhs
+++ b/ghc/compiler/deSugar/MatchLit.lhs
@@ -15,14 +15,14 @@ import HsSyn                ( HsLit(..), OutPat(..), HsExpr(..), Fixity,
                          Match, HsBinds, DoOrListComp, HsType, ArithSeqInfo )
 import TcHsSyn         ( TypecheckedHsExpr, TypecheckedPat )
 import CoreSyn         ( CoreExpr, CoreBinding, GenCoreExpr(..), GenCoreBinding(..) )
-import Id              ( GenId {- instance Eq -}, Id )
+import Id              ( Id )
 
 import DsMonad
 import DsUtils
 
 import Literal         ( mkMachInt, Literal(..) )
 import Maybes          ( catMaybes )
-import Type            ( Type )
+import Type            ( Type, isUnpointedType )
 import Util            ( panic, assertPanic )
 \end{code}