[project @ 2000-10-16 08:24:18 by simonpj]

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

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 6c64a5c..cc66632 100644 (file)
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -24,15 +24,14 @@ import Id           ( Id )
 import Class           ( Class )
 import CoreSyn         ( CoreBind )
 import StgSyn          ( StgBinding )
-import AbsCSyn         ( AbstractC, absCNop )
+import AbsCSyn         ( AbstractC )
 import PprAbsC         ( dumpRealC, writeRealC )
 import UniqSupply      ( UniqSupply )
-import Module          ( Module, moduleString )
+import Module          ( Module )
 import CmdLineOpts
-import Maybes          ( maybeToBool )
-import ErrUtils                ( doIfSet, dumpIfSet )
+import ErrUtils                ( dumpIfSet )
 import Outputable
-import IO              ( IOMode(..), hClose, openFile )
+import IO              ( IOMode(..), hClose, openFile, Handle )
 \end{code}
 
 
@@ -69,6 +68,7 @@ codeOutput mod_name tycons classes core_binds stg_binds
        } }
 
 
+doOutput :: (Handle -> IO ()) -> IO ()
 doOutput io_action
   = (do        handle <- openFile opt_OutputFile WriteMode
        io_action handle
@@ -101,9 +101,9 @@ outputC flat_absC
 outputAsm flat_absC ncg_uniqs
 #ifndef OMIT_NATIVE_CODEGEN
 
-  = do dumpIfSet opt_D_dump_stix "Final stix code" stix_final
-       dumpIfSet opt_D_dump_asm "Asm code" ncg_output_d
-       doOutput (\ f -> printForAsm f ncg_output_d)
+  = do dumpIfSet opt_D_dump_stix "Final stix code" stix_final
+       dumpIfSet opt_D_dump_asm "Asm code" ncg_output_d
+       doOutput ( \f -> printForAsm f ncg_output_d)
   where
     (stix_final, ncg_output_d) = nativeCodeGen flat_absC ncg_uniqs