projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert an accidental change
[ghc-hetmet.git]
/
compiler
/
iface
/
LoadIface.lhs
diff --git
a/compiler/iface/LoadIface.lhs
b/compiler/iface/LoadIface.lhs
index
a2afdcc
..
7401eeb
100644
(file)
--- a/
compiler/iface/LoadIface.lhs
+++ b/
compiler/iface/LoadIface.lhs
@@
-52,7
+52,7
@@
import SrcLoc
import Maybes
import ErrUtils
import Finder
import Maybes
import ErrUtils
import Finder
-import UniqFM
+import LazyUniqFM
import StaticFlags
import Outputable
import BinIface
import StaticFlags
import Outputable
import BinIface
@@
-515,7
+515,8
@@
readIface :: Module -> FilePath -> IsBootInterface
readIface wanted_mod file_path is_hi_boot_file
= do { dflags <- getDOpts
readIface wanted_mod file_path is_hi_boot_file
= do { dflags <- getDOpts
- ; res <- tryMostM $ readBinIface file_path
+ ; res <- tryMostM $
+ readBinIface CheckHiWay QuietBinIFaceReading file_path
; case res of
Right iface
| wanted_mod == actual_mod -> return (Succeeded iface)
; case res of
Right iface
| wanted_mod == actual_mod -> return (Succeeded iface)
@@
-610,10
+611,10
@@
ifaceStats eps
-- | Read binary interface, and print it out
showIface :: HscEnv -> FilePath -> IO ()
showIface hsc_env filename = do
-- | Read binary interface, and print it out
showIface :: HscEnv -> FilePath -> IO ()
showIface hsc_env filename = do
- -- skip the version check; we don't want to worry about profiled vs.
+ -- skip the hi way check; we don't want to worry about profiled vs.
-- non-profiled interfaces, for example.
-- non-profiled interfaces, for example.
- writeIORef v_IgnoreHiWay True
- iface <- initTcRnIf 's' hsc_env () () $ readBinIface filename
+ iface <- initTcRnIf 's' hsc_env () () $
+ readBinIface IgnoreHiWay TraceBinIFaceReading filename
printDump (pprModIface iface)
\end{code}
printDump (pprModIface iface)
\end{code}