X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;fp=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;h=432b23a6aecd93b40125a38aceab05db43557ae2;hb=e26bfe8372fcc2401831a67c728f529ac645143c;hp=5399ec1d45939aa9531868b6b09ca9d23b1760f1;hpb=9490f5ceb4cdb840eb94bdfc53fe593e130a42c3;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 5399ec1..432b23a 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -65,11 +65,12 @@ import Module		( Module, ModuleName, moduleNameFS, moduleName, isHomeModule,
 import Outputable
 import Util		( sortLt, dropList, seqList )
 import Binary		( getBinFileWithDict )
-import BinIface		( writeBinIface )
+import BinIface		( writeBinIface, v_IgnoreHiVersion )
 import ErrUtils		( dumpIfSet_dyn )
 import FiniteMap
 import FastString
 
+import DATA_IOREF	( writeIORef )
 import Monad		( when )
 import Maybe		( catMaybes, isJust, isNothing )
 import Maybes		( orElse )
@@ -86,6 +87,9 @@ import IO		( putStrLn )
 \begin{code}
 showIface :: FilePath -> IO ()
 showIface filename = do
+   -- skip the version check; we don't want to worry about profiled vs.
+   -- non-profiled interfaces, for example.
+   writeIORef v_IgnoreHiVersion True
    parsed_iface <- Binary.getBinFileWithDict filename
    let ParsedIface{
       pi_mod=pi_mod, pi_pkg=pi_pkg, pi_vers=pi_vers,