[project @ 1999-04-27 17:44:26 by sof]

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

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index c38079e..717c58d 100644 (file)
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -27,7 +27,7 @@ import CodeGen                ( codeGen )
 import AsmCodeGen      ( dumpRealAsm, writeRealAsm )
 #endif
 
-import OccName         ( Module, moduleString )
+import Module          ( Module, moduleString )
 import AbsCSyn         ( absCNop )
 import AbsCUtils       ( flattenAbsC )
 import CmdLineOpts
@@ -120,7 +120,8 @@ doIt (core_cmds, stg_cmds)
     -- ******* TYPECHECKER
     show_pass "TypeCheck"                              >>
     _scc_     "TypeCheck"
-    typecheckModule tc_uniqs rn_name_supply rn_mod     >>= \ maybe_tc_stuff ->
+    typecheckModule tc_uniqs rn_name_supply iface_file_stuff rn_mod
+                                                       >>= \ maybe_tc_stuff ->
     case maybe_tc_stuff of {
        Nothing -> ghcExit 1;   -- Type checker failed