From: Ian Lynagh <igloo@earth.li>
Date: Sun, 17 Apr 2011 17:48:39 +0000 (+0100)
Subject: Set stdout to use line buffering in ghc-cabal
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ee16dc770603e79d20fde8eec84eae12eb758da6;hp=40df25409b34352f33f63881a3b9d9846ee03748

Set stdout to use line buffering in ghc-cabal
---

diff --git a/utils/ghc-cabal/Main.hs b/utils/ghc-cabal/Main.hs
index 72a5010..d64c224 100644
--- a/utils/ghc-cabal/Main.hs
+++ b/utils/ghc-cabal/Main.hs
@@ -28,7 +28,8 @@ import System.Exit
 import System.FilePath
 
 main :: IO ()
-main = do args <- getArgs
+main = do hSetBuffering stdout LineBuffering
+          args <- getArgs
           case args of
               "hscolour" : distDir : dir : args' ->
                   runHsColour distDir dir args'