[project @ 2005-04-16 22:47:23 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 4d1fe47..404c7ed 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -51,8 +51,8 @@ import Parser
 import Lexer           ( P(..), ParseResult(..), mkPState )
 import SrcLoc          ( mkSrcLoc )
 import TcRnDriver      ( tcRnModule, tcRnExtCore )
-import TcRnTypes       ( TcGblEnv(..) )
 import TcIface         ( typecheckIface )
+import TcRnMonad       ( initIfaceCheck, TcGblEnv(..) )
 import IfaceEnv                ( initNameCache )
 import LoadIface       ( ifaceStats, initExternalPackageState )
 import PrelInfo                ( wiredInThings, basicKnownKeyNames )
@@ -208,7 +208,8 @@ hscNoRecomp hsc_env msg_act mod_summary
                  "Skipping  " ++ showModMsg have_object mod_summary)
 
        ; new_details <- {-# SCC "tcRnIface" #-}
-                    typecheckIface hsc_env old_iface ;
+                        initIfaceCheck hsc_env $
+                        typecheckIface old_iface ;
        ; dumpIfaceStats hsc_env
 
        ; return (HscNoRecomp new_details old_iface)