diff options
| -rw-r--r-- | ghc/InteractiveUI.hs | 1 | ||||
| -rw-r--r-- | ghc/Main.hs | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 91648a31d1..80032f2949 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -388,6 +388,7 @@ interactiveUI config srcs maybe_exprs = do -- We don't want the cmd line to buffer any input that might be -- intended for the program, so unbuffer stdin. hSetBuffering stdin NoBuffering + hSetBuffering stderr NoBuffering #if defined(mingw32_HOST_OS) -- On Unix, stdin will use the locale encoding. The IO library -- doesn't do this on Windows (yet), so for now we use UTF-8, diff --git a/ghc/Main.hs b/ghc/Main.hs index 66db90a9f7..868042b4e2 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -76,8 +76,8 @@ import Data.Maybe main :: IO () main = do - hSetBuffering stdout NoBuffering - hSetBuffering stderr NoBuffering + hSetBuffering stdout LineBuffering + hSetBuffering stderr LineBuffering GHC.defaultErrorHandler defaultFatalMessager defaultFlushOut $ do -- 1. extract the -B flag from the args argv0 <- getArgs |