readIface wanted_mod file_path is_hi_boot_file
= do { dflags <- getDOpts
- ; res <- tryMostM $ readBinIface CheckHiWay file_path
+ ; res <- tryMostM $
+ readBinIface CheckHiWay QuietBinIFaceReading file_path
; case res of
Right iface
| wanted_mod == actual_mod -> return (Succeeded iface)
showIface hsc_env filename = do
-- skip the hi way check; we don't want to worry about profiled vs.
-- non-profiled interfaces, for example.
- iface <- initTcRnIf 's' hsc_env () () $ readBinIface IgnoreHiWay filename
+ iface <- initTcRnIf 's' hsc_env () () $
+ readBinIface IgnoreHiWay TraceBinIFaceReading filename
printDump (pprModIface iface)
\end{code}
= vcat [ ptext SLIT("interface")
<+> ppr (mi_module iface) <+> pp_boot
<+> ppr (mi_mod_vers iface) <+> pp_sub_vers
- <+> ppr (mi_mod_vers iface)
<+> (if mi_orphan iface then ptext SLIT("[orphan module]") else empty)
<+> (if mi_finsts iface then ptext SLIT("[family instance module]") else empty)
<+> (if mi_hpc iface then ptext SLIT("[hpc]") else empty)