diff options
Diffstat (limited to 'ghc/compiler/main')
| -rw-r--r-- | ghc/compiler/main/CodeOutput.lhs | 4 | ||||
| -rw-r--r-- | ghc/compiler/main/DriverPipeline.hs | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs index 1e33654169..33357fcbc2 100644 --- a/ghc/compiler/main/CodeOutput.lhs +++ b/ghc/compiler/main/CodeOutput.lhs @@ -35,6 +35,7 @@ import CmdLineOpts ( DynFlags, HscLang(..), dopt_OutName ) import TmpFiles ( newTempName ) import IO ( IOMode(..), hClose, openFile, Handle ) +import IO ( hPutStr, stderr) -- Debugging \end{code} @@ -81,7 +82,8 @@ codeOutput dflags mod_name tycons core_binds stg_binds doOutput :: String -> (Handle -> IO ()) -> IO () doOutput filenm io_action - = (do handle <- openFile filenm WriteMode + = (do hPutStr stderr ("Writing to" ++ filenm) + handle <- openFile filenm WriteMode io_action handle hClose handle) `catch` (\err -> pprPanic "Failed to open or write code output file" diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index f5686721e7..2b69fa7f9f 100644 --- a/ghc/compiler/main/DriverPipeline.hs +++ b/ghc/compiler/main/DriverPipeline.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverPipeline.hs,v 1.53 2001/03/06 15:00:25 rrt Exp $ +-- $Id: DriverPipeline.hs,v 1.54 2001/03/13 14:58:26 simonpj Exp $ -- -- GHC Driver -- @@ -884,7 +884,7 @@ compile ghci_mode summary source_unchanged old_iface hst hit pcs = do HscC -> newTempName (phaseInputExt HCc) HscJava -> newTempName "java" -- ToDo #ifdef ILX - HscILX -> newTempName (phaseInputExt Ilx) + HscILX -> newTempName "ilx" -- ToDo #endif HscInterpreted -> return (error "no output file") |