X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCoreTidy.lhs;h=51a5175dc5e86535dd69dbccce04cf2fe910a82e;hb=8c0bd142f0f03560936d54fea644451283c9ec91;hp=27843e820bad0ba9b29b22ad8edd3bb174b112bb;hpb=90bf51fc2336d45c6bdf347142ac14a3e68b85c1;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index 27843e8..51a5175 100644
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/ghc/compiler/coreSyn/CoreTidy.lhs
@@ -21,7 +21,7 @@ import VarEnv
 import VarSet
 import Var		( Id, IdOrTyVar )
 import Id		( idType, idInfo, idName, 
-			  mkVanillaId, mkId, isUserExportedId,
+			  mkVanillaId, mkId, exportWithOrigOccName,
 			  getIdStrictness, setIdStrictness,
 			  getIdDemandInfo, setIdDemandInfo,
 			) 
@@ -94,7 +94,7 @@ tidyCorePgm us module_name binds_in rules
 	-- decl.  tidyTopId then does a no-op on exported binders.
     init_tidy_env = (initTidyOccEnv avoids, emptyVarEnv)
     avoids	  = [getOccName bndr | bndr <- bindersOfBinds binds_in,
-				       isUserExportedId bndr]
+				       exportWithOrigOccName bndr]
 
 tidyBind :: Maybe Module		-- (Just m) for top level, Nothing for nested
 	 -> TidyEnv
@@ -207,8 +207,8 @@ tidyTopId :: Module -> TidyEnv -> TidyEnv -> Id -> (TidyEnv, Id)
 tidyTopId mod env@(tidy_env, var_env) env_idinfo id
   =	-- Top level variables
     let
-	(tidy_env', name') | isUserExportedId id = (tidy_env, idName id)
-			   | otherwise	         = tidyTopName mod tidy_env (idName id)
+	(tidy_env', name') | exportWithOrigOccName id = (tidy_env, idName id)
+			   | otherwise	              = tidyTopName mod tidy_env (idName id)
 	ty'	           = tidyTopType (idType id)
 	idinfo'		   = tidyIdInfo env_idinfo (idInfo id)
 	id'		   = mkId name' ty' idinfo'