X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;fp=ghc%2FMain.hs;h=b7da083348096bb3e533e5cb4d44bc84bf6dc904;hb=1f4bc1f36380776c68431dbc3b5fa41dd6d2182e;hp=519d9cd0759333430bdb32bf754b355266047d80;hpb=27286cf2ce6733cbbf008972c6bea30ea2e562ee;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index 519d9cd..b7da083 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -76,8 +76,9 @@ import Data.Maybe
 -- GHC's command-line interface
 
 main :: IO ()
-main =
-    GHC.defaultErrorHandler defaultDynFlags $ do
+main = do
+   hSetBuffering stdout NoBuffering
+   GHC.defaultErrorHandler defaultDynFlags $ do
     -- 1. extract the -B flag from the args
     argv0 <- getArgs