X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fiface%2FLoadIface.lhs;h=8c496f76efcbfe12d315629e66b90fc854fc28c7;hb=9d7da331989abcd1844e9d03b8d1e4163796fa85;hp=356cf224bde7c17608407e8bb595e1235320bffd;hpb=67e7de3d6b111d6f61134b591f486964411d146d;p=ghc-hetmet.git

diff --git a/ghc/compiler/iface/LoadIface.lhs b/ghc/compiler/iface/LoadIface.lhs
index 356cf22..8c496f7 100644
--- a/ghc/compiler/iface/LoadIface.lhs
+++ b/ghc/compiler/iface/LoadIface.lhs
@@ -45,7 +45,7 @@ import NameEnv
 import MkId		( seqId )
 import Module		( Module, ModLocation(ml_hi_file), emptyModuleEnv, 
 			  addBootSuffix_maybe,
-			  extendModuleEnv, lookupModuleEnv, moduleUserString
+			  extendModuleEnv, lookupModuleEnv, moduleString
 			)
 import OccName		( OccName, mkOccEnv, lookupOccEnv, mkClassTyConOcc, mkClassDataConOcc,
 			  mkSuperDictSelOcc, mkDataConWrapperOcc, mkDataConWorkerOcc )
@@ -312,7 +312,7 @@ loadDecl ignore_prags mod (_version, decl)
 	-- imported name, to fix the module correctly in the cache
     mk_new_bndr mod mb_parent occ 
 	= newGlobalBinder mod occ mb_parent 
-			  (importedSrcLoc (moduleUserString mod))
+			  (importedSrcLoc (moduleString mod))
 
     doc = ptext SLIT("Declaration for") <+> ppr (ifName decl)