X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FMatchLit.lhs;h=cac28beffcc16eea63b7738b2500212080cad694;hb=dcef38bab91d45b56f7cf3ceeec96303d93728bb;hp=c7e4bc1d9cce8ef0c133f0c7cecae37bf6810c3f;hpb=f1815aa4bb218b92bc699d1355b6a704ee3e89ee;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index c7e4bc1..cac28be 100644
--- a/ghc/compiler/deSugar/MatchLit.lhs
+++ b/ghc/compiler/deSugar/MatchLit.lhs
@@ -17,14 +17,14 @@ import TcHsSyn		( SYN_IE(TypecheckedHsExpr), SYN_IE(TypecheckedHsBinds),
 			  SYN_IE(TypecheckedPat)
 			)
 import CoreSyn		( SYN_IE(CoreExpr), SYN_IE(CoreBinding), GenCoreExpr(..), GenCoreBinding(..) )
-import Id		( GenId {- instance Eq -} )
+import Id		( GenId {- instance Eq -}, SYN_IE(Id) )
 
 import DsMonad
 import DsUtils
 
 import Literal		( mkMachInt, Literal(..) )
 import Maybes		( catMaybes )
-import Type		( isPrimType )
+import Type		( isPrimType, SYN_IE(Type) )
 import Util		( panic, assertPanic )
 \end{code}