X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=289285ddd549cd6cbf60a1907df287162219ccbf;hb=5d090a3148fd99c318b1e4b33c5f3c705e0a58c6;hp=101471a2c5c63f9f00f45411795871b26fa6c477;hpb=a72f9438c90a3aea6aa8050db62655420ff93bb9;p=ghc-hetmet.git diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index 101471a..289285d 100644 --- a/ghc/compiler/main/DriverPipeline.hs +++ b/ghc/compiler/main/DriverPipeline.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverPipeline.hs,v 1.85 2001/06/29 12:58:20 rrt Exp $ +-- $Id: DriverPipeline.hs,v 1.86 2001/07/03 16:46:21 rrt Exp $ -- -- GHC Driver -- @@ -333,7 +333,7 @@ run_phase Cpp basename suff input_fn output_fn -- ToDo: switch away from using 'echo' altogether (but need -- a faster alternative than what's done below). -#if defined(mingw32_TARGET_OS) && defined(MINIMAL_UNIX_DEPS) +#if defined(mingw32_TARGET_OS) else do h <- openFile output_fn WriteMode hPutStrLn h ("{-# LINE 1 \"" ++ input_fn ++ "\" #-}")