X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCodeOutput.lhs;h=6c64a5c41e37ab5210cc3e1cacd71b748cb9bba8;hb=495ef8bd9ef30bffe50ea399b91e3ba09646b59a;hp=18b538b1685c6a5f8bf6f6a6cbedac74dad67b27;hpb=b5c71bff716366ae888bf120776d3e163c86c60a;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 18b538b..6c64a5c 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -32,7 +32,7 @@ import CmdLineOpts
 import Maybes		( maybeToBool )
 import ErrUtils		( doIfSet, dumpIfSet )
 import Outputable
-import IO
+import IO		( IOMode(..), hClose, openFile )
 \end{code}
 
 
@@ -109,8 +109,8 @@ outputAsm flat_absC ncg_uniqs
 
 #else /* OMIT_NATIVE_CODEGEN */
 
-  = do 	hPutStrLn stderr "This compiler was built without a native code generator"
-	hPutStrLn stderr "Use -fvia-C instead"
+  = pprPanic "This compiler was built without a native code generator"
+	     (text "Use -fvia-C instead")
 
 #endif
 \end{code}