diff options
| author | Simon Jakobi <simon.jakobi@gmail.com> | 2018-03-14 14:17:23 +0100 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2018-03-14 20:39:29 +0100 |
| commit | 896340a1407bf99bd5700ed5d296c668971876f3 (patch) | |
| tree | 167788dea5b884325a42f42f3bc3fa41616252dc /haddock-library/fixtures/Fixtures.hs | |
| parent | e7a4bd3fc635f2dc3e9e14b9f334ec991c7d5d23 (diff) | |
fixtures: Prevent stdout buffering
Diffstat (limited to 'haddock-library/fixtures/Fixtures.hs')
| -rw-r--r-- | haddock-library/fixtures/Fixtures.hs | 5 |
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 |