From 5c5406358f3b4c3be257b40aed0825be541a26f7 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 21 May 2013 07:49:40 +0300 Subject: [PATCH] Don't buffer build.log (fixes #75) --- Stackage/Build.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Stackage/Build.hs b/Stackage/Build.hs index 1f29696a..8512b7a3 100644 --- a/Stackage/Build.hs +++ b/Stackage/Build.hs @@ -12,8 +12,9 @@ import Stackage.InstallInfo import Stackage.Types import Stackage.Util import System.Exit (ExitCode (ExitSuccess), exitWith) -import System.IO (IOMode (WriteMode), hPutStrLn, - withBinaryFile) +import System.IO (BufferMode (NoBuffering), + IOMode (WriteMode), hPutStrLn, + hSetBuffering, withBinaryFile) import System.Process (rawSystem, runProcess, waitForProcess) @@ -48,6 +49,8 @@ build settings' bp = do let installBuildTool tool = do putStrLn $ "Installing build tool: " ++ tool ec <- withBinaryFile "build-tools.log" WriteMode $ \handle -> do + hSetBuffering handle NoBuffering + let args = addCabalArgs settings BSBuild $ "install" : ("--cabal-lib-version=" ++ libVersion)