X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fiface%2FMkIface.lhs;h=2f15ee377365e7a24529ddfaecf96fdba176929b;hb=9d7da331989abcd1844e9d03b8d1e4163796fa85;hp=5be56bfa25ca8128960224206b4a621ea784ac94;hpb=2a2efb720c0fdc06fe749f96f284b00b30f8f3f7;p=ghc-hetmet.git

diff --git a/ghc/compiler/iface/MkIface.lhs b/ghc/compiler/iface/MkIface.lhs
index 5be56bf..2f15ee3 100644
--- a/ghc/compiler/iface/MkIface.lhs
+++ b/ghc/compiler/iface/MkIface.lhs
@@ -214,7 +214,7 @@ import OccName		( OccName, OccEnv, mkOccEnv, lookupOccEnv, emptyOccEnv,
 			  isEmptyOccSet, intersectOccSet, intersectsOccSet,
 			  occNameFS, isTcOcc )
 import Module		( Module, moduleFS,
-			  ModLocation(..), mkSysModuleFS, moduleUserString,
+			  ModLocation(..), mkModuleFS, moduleString,
 			  ModuleEnv, emptyModuleEnv, lookupModuleEnv,
 			  extendModuleEnv_C
 			)
@@ -726,7 +726,7 @@ mkIfaceExports :: NameSet -> [(Module, [GenAvailInfo OccName])]
   -- Group by module and sort by occurrence
   -- This keeps the list in canonical order
 mkIfaceExports exports 
-  = [ (mkSysModuleFS fs, eltsFM avails)
+  = [ (mkModuleFS fs, eltsFM avails)
     | (fs, avails) <- fmToList groupFM
     ]
   where
@@ -768,7 +768,7 @@ checkOldIface :: HscEnv
 
 checkOldIface hsc_env mod_summary source_unchanged maybe_iface
   = do	{ showPass (hsc_dflags hsc_env) 
-	           ("Checking old interface for " ++ moduleUserString (ms_mod mod_summary)) ;
+	           ("Checking old interface for " ++ moduleString (ms_mod mod_summary)) ;
 
 	; initIfaceCheck hsc_env $
 	  check_old_iface mod_summary source_unchanged maybe_iface