[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 a2b89c5..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
 
@@ -397,6 +398,14 @@ ppSourceStats short (HsModule name version exports imports decls src_loc)
            (_,_,ss,is) ->
               (addpr (count_monobinds inst_meths), ss, is)
 
+    addpr :: (Int,Int) -> Int
+    add1  :: Int -> Int -> Int
+    add2  :: (Int,Int) -> (Int,Int) -> (Int, Int)
+    add3  :: (Int,Int,Int) -> (Int,Int,Int) -> (Int, Int, Int)
+    add4  :: (Int,Int,Int,Int) -> (Int,Int,Int,Int) -> (Int, Int, Int, Int)
+    add5  :: (Int,Int,Int,Int,Int) -> (Int,Int,Int,Int,Int) -> (Int, Int, Int, Int, Int)
+    add6  :: (Int,Int,Int,Int,Int,Int) -> (Int,Int,Int,Int,Int,Int) -> (Int, Int, Int, Int, Int, Int)
+
     addpr (x,y) = x+y
     add1 x1 y1  = x1+y1
     add2 (x1,x2) (y1,y2) = (x1+y1,x2+y2)