X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatchLit.lhs;h=4d16d00e43b8719403ab2c65d0ddc9c778e6ba3d;hb=d3e697b8d842bd43329d470f2bc424a6dcb88d89;hp=c9b6bb18b89e37aaa151c0182533e30018863efe;hpb=23af01cd04e40c12f39763f676e9c0396ac8d86a;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index c9b6bb1..4d16d00 100644
--- 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}