projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2006-01-06 16:30:17 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
iface
/
MkIface.lhs
diff --git
a/ghc/compiler/iface/MkIface.lhs
b/ghc/compiler/iface/MkIface.lhs
index
5be56bf
..
2f15ee3
100644
(file)
--- 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,
isEmptyOccSet, intersectOccSet, intersectsOccSet,
occNameFS, isTcOcc )
import Module ( Module, moduleFS,
- ModLocation(..), mkSysModuleFS, moduleUserString,
+ ModLocation(..), mkModuleFS, moduleString,
ModuleEnv, emptyModuleEnv, lookupModuleEnv,
extendModuleEnv_C
)
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
-- 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
| (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)
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
; initIfaceCheck hsc_env $
check_old_iface mod_summary source_unchanged maybe_iface