aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Jakobi <simon.jakobi@gmail.com>2018-03-14 14:17:23 +0100
committerAlexander Biehl <alexbiehl@gmail.com>2018-03-14 20:39:29 +0100
commit896340a1407bf99bd5700ed5d296c668971876f3 (patch)
tree167788dea5b884325a42f42f3bc3fa41616252dc
parente7a4bd3fc635f2dc3e9e14b9f334ec991c7d5d23 (diff)
fixtures: Prevent stdout buffering
-rw-r--r--haddock-library/fixtures/Fixtures.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/haddock-library/fixtures/Fixtures.hs b/haddock-library/fixtures/Fixtures.hs
index 54fca012..282fd10d 100644
--- a/haddock-library/fixtures/Fixtures.hs
+++ b/haddock-library/fixtures/Fixtures.hs
@@ -14,6 +14,7 @@ import Prelude.Compat
import System.Directory (getDirectoryContents)
import System.Exit (exitFailure)
import System.FilePath
+import System.IO
import Data.TreeDiff
import Data.TreeDiff.Golden
@@ -106,7 +107,9 @@ parseString = Parse.toRegular . _doc . Parse.parseParas
data Cmd = CmdRun | CmdAccept | CmdList
main :: IO ()
-main = runCmd =<< O.execParser opts
+main = do
+ hSetBuffering stdout NoBuffering -- For interleaved output when debugging
+ runCmd =<< O.execParser opts
where
opts = O.info (O.helper <*> cmdParser) O.fullDesc