[project @ 2000-12-12 14:42:43 by simonmar]

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

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index d6769bc..204ebfa 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -18,7 +18,7 @@ import Rename         ( renameExpr )
 import CoreToStg       ( coreExprToStg )
 import StringBuffer    ( stringToStringBuffer, freeStringBuffer )
 import Unique          ( Uniquable(..) )
-import Type            ( splitTyConApp_maybe )
+import Type            ( Type, splitTyConApp_maybe )
 import PrelNames       ( ioTyConKey )
 import ByteCodeGen     ( byteCodeGen )
 #endif
@@ -72,6 +72,7 @@ import Module         ( Module, lookupModuleEnvByName )
 import Monad           ( when )
 import Maybe           ( isJust )
 import IO
+import List            ( intersperse )
 \end{code}
 
 
@@ -372,7 +373,7 @@ myCoreToStg dflags this_mod tidy_binds
       -- thoroughout code generation
 
       --let bcos = byteCodeGen tidy_binds
-      --putStrLn (showSDoc (vcat (map ppr bcos)))
+      --putStrLn ("\n\n" ++ showSDocDebug (vcat (intersperse (char ' ') (map ppr bcos))))
 
       -- _scc_     "Core2Stg"
       stg_binds <- coreToStg dflags this_mod tidy_binds