X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcHsSyn.lhs;h=6acef37dd333c5091fde5fa3b5533eb7e3050fd9;hb=4161ba13916463f8e67259498eacf22744160e1f;hp=6af65b07a18c4e2017f8827be3c6cd74030910a6;hpb=db95d6e8d319b0c5cee1ccc23751e8190152ade3;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcHsSyn.lhs b/ghc/compiler/typecheck/TcHsSyn.lhs
index 6af65b0..6acef37 100644
--- a/ghc/compiler/typecheck/TcHsSyn.lhs
+++ b/ghc/compiler/typecheck/TcHsSyn.lhs
@@ -39,7 +39,7 @@ module TcHsSyn (
 import HsSyn	-- oodles of it
 
 -- others:
-import Id	( idName, idType, idUnfolding, setIdType, omitIfaceSigForId, isIP, Id )
+import Id	( idName, idType, isLocalId, idUnfolding, setIdType, isIP, Id )
 import DataCon	( dataConWrapId )	
 import TcEnv	( tcLookupGlobal_maybe, tcExtendGlobalValEnv,
 		  TcEnv, TcId, tcInstId
@@ -174,7 +174,7 @@ zonkIdOcc id
     let
 	new_id = case maybe_id' of
 		    Just (AnId id') -> id'
-		    other  -> pprTrace "zonkIdOcc: " (ppr id) id
+		    other  -> pprTrace "zonkIdOcc:" (ppr id) id
     in
     returnNF_Tc new_id
 \end{code}