X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplCase.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FSimplCase.lhs;h=aa63f03cb6bcb38dbf22d66430a4140c2290b681;hb=26741ec416bae2c502ef00a2ba0e79050a32cb67;hp=8e7656bea7439ac0f481e751180325b71294081e;hpb=ae45ff0e9831a0dc862a5d68d03e355d7e323c62;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplCase.lhs b/ghc/compiler/simplCore/SimplCase.lhs
index 8e7656b..aa63f03 100644
--- a/ghc/compiler/simplCore/SimplCase.lhs
+++ b/ghc/compiler/simplCore/SimplCase.lhs
@@ -24,7 +24,7 @@ import CoreUtils	( coreAltsType, nonErrorRHSs, maybeErrorApp,
 			  unTagBindersAlts
 			)
 import Id		( idType, isDataCon, getIdDemandInfo,
-			  DataCon(..), GenId{-instance Eq-}
+			  SYN_IE(DataCon), GenId{-instance Eq-}
 			)
 import IdInfo		( willBeDemanded, DemandInfo )
 import Literal		( isNoRepLit, Literal{-instance Eq-} )