X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghc-cabal%2FMain.hs;h=d64c2240a8b3274765275bf7eab654ab0f4e707e;hb=d05212cf8475778cf41758c04f4eee510ae47e98;hp=72a5010f805f6eac9fc5dd2b7cc7b46072c959fb;hpb=fdcb0ced3ff1628edf8dac16adbbdf7b10ed9052;p=ghc-hetmet.git 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'