diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-19 16:37:43 +0200 |
|---|---|---|
| committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-22 23:40:28 +0200 |
| commit | 7d0317a9210ddbb4f00976318910018fa9abea99 (patch) | |
| tree | 863f8e5c8a6de393ea5fd45b60414bafe821bcf0 /haddock-test/src/Test | |
| parent | 109ebe47a7141b477844ba52291785969f01514c (diff) | |
Fix bug with test runner failing when run on multiple test packages.
Diffstat (limited to 'haddock-test/src/Test')
| -rw-r--r-- | haddock-test/src/Test/Haddock.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/haddock-test/src/Test/Haddock.hs b/haddock-test/src/Test/Haddock.hs index 41e15978..87c16739 100644 --- a/haddock-test/src/Test/Haddock.hs +++ b/haddock-test/src/Test/Haddock.hs @@ -73,12 +73,11 @@ maybeDiff cfg@(Config { cfgDiffTool = (Just diff) }) files = do runHaddock :: Config c -> IO () runHaddock cfg@(Config { .. }) = do - haddockStdOut <- openFile cfgHaddockStdOut WriteMode - createEmptyDirectory $ cfgOutDir cfg putStrLn "Generating documentation..." forM_ cfgPackages $ \tpkg -> do + haddockStdOut <- openFile cfgHaddockStdOut WriteMode handle <- runProcess' cfgHaddockPath $ processConfig { pcArgs = concat [ cfgHaddockArgs |