[project @ 2001-06-01 17:14:07 by apt]

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

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index d10faa2..5d09d7b 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -78,6 +78,8 @@ import IOExts         ( newIORef, readIORef, writeIORef, unsafePerformIO )
 import Monad           ( when )
 import Maybe           ( isJust, fromJust )
 import IO
+
+import MkExternalCore  ( emitExternalCore )
 \end{code}
 
 
@@ -129,8 +131,7 @@ hscMain ghci_mode dflags mod location source_unchanged have_object
 
       (pcs_ch, errs_found, (recomp_reqd, maybe_checked_iface))
          <- _scc_ "checkOldIface"
-           checkOldIface ghci_mode dflags hit hst pcs 
-               (unJust "hscMain" (ml_hi_file location))
+           checkOldIface ghci_mode dflags hit hst pcs (ml_hi_file location)
                source_unchanged maybe_old_iface;
 
       if errs_found then
@@ -291,6 +292,7 @@ hscRecomp ghci_mode dflags have_object
        --      tidy_details
        --      new_iface               
 
+       ; emitExternalCore dflags new_iface tidy_details 
            -------------------
            -- PREPARE FOR CODE GENERATION
            -------------------
@@ -425,6 +427,8 @@ myCoreToStg dflags this_mod tidy_binds
    where
       stgBindPairs (StgNonRec _ b r) = [(b,r)]
       stgBindPairs (StgRec    _ prs) = prs
+
+
 \end{code}