X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FIfaceSyn.lhs;h=b3dd586da6895bc2f5297e91f800b3b64efe41d3;hb=84f4c1dfb0c39c5b48a8b960fc82ab10aeb10c84;hp=4ebebe09ff297a36c329f27439b178d89d8b1e73;hpb=17434e5beb213f1e8971d1ce8ffbf40a0848bb3a;p=ghc-hetmet.git

diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs
index 4ebebe0..b3dd586 100644
--- a/compiler/iface/IfaceSyn.lhs
+++ b/compiler/iface/IfaceSyn.lhs
@@ -36,22 +36,17 @@ import CoreSyn
 import IfaceType
 
 import NewDemand	( StrictSig, pprIfaceStrictSig )
-import TcType		( deNoteType )
 import Class		( FunDep, DefMeth, pprFundeps )
 import OccName		( OccName, parenSymOcc, occNameFS,
 			  OccSet, unionOccSets, unitOccSet, occSetElts )
 import UniqFM           ( UniqFM, emptyUFM, addToUFM, lookupUFM )
-import Name		( Name, NamedThing(..), nameOccName, isExternalName )
 import CostCentre	( CostCentre, pprCostCentreCore )
 import Literal		( Literal )
 import ForeignCall	( ForeignCall )
 import BasicTypes	( Arity, Activation(..), StrictnessMark, OverlapFlag,
-			  RecFlag(..), Boxity(..), 
-			  isAlwaysActive, tupleParens )
+			  RecFlag(..), Boxity(..), tupleParens )
 import Outputable
 import FastString
-import Maybes		( catMaybes )
-import Util		( lengthIs )
 
 infixl 3 &&&
 infix  4 `eqIfExt`, `eqIfIdInfo`, `eqIfType`
@@ -755,7 +750,7 @@ type EqEnv = UniqFM FastString	-- Tracks the mapping from L-variables to R-varia
 eqIfOcc :: EqEnv -> FastString -> FastString -> IfaceEq
 eqIfOcc env n1 n2 = case lookupUFM env n1 of
 			Just n1 -> bool (n1 == n2)
-			Nothing -> bool (show n1 == show n2)
+			Nothing -> bool (n1 == n2)
 
 extendEqEnv :: EqEnv -> FastString -> FastString -> EqEnv
 extendEqEnv env n1 n2 | n1 == n2  = env