diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-18 23:42:25 +0200 |
|---|---|---|
| committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-22 23:40:28 +0200 |
| commit | 863d33c4d125e13f87193802f6d4faed38da24db (patch) | |
| tree | a24d4a77b6fd26d8e9469ee00605653c70679ee3 /haddock-test/src/Test/Haddock.hs | |
| parent | 8e05e0b78eabbaf59c7d2c90d1f839fd58c5fe09 (diff) | |
Fix bug with unnecessary checking old test output.
Diffstat (limited to 'haddock-test/src/Test/Haddock.hs')
| -rw-r--r-- | haddock-test/src/Test/Haddock.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/haddock-test/src/Test/Haddock.hs b/haddock-test/src/Test/Haddock.hs index ab6ce775..18ae38ca 100644 --- a/haddock-test/src/Test/Haddock.hs +++ b/haddock-test/src/Test/Haddock.hs @@ -69,9 +69,11 @@ maybeDiff cfg@(Config { cfgDiffTool = (Just diff) }) files = do runHaddock :: Config c -> IO () -runHaddock (Config { .. }) = do +runHaddock cfg@(Config { .. }) = do haddockStdOut <- openFile cfgHaddockStdOut WriteMode + createEmptyDirectory $ cfgOutDir cfg + putStrLn "Generating documentation..." forM_ cfgPackages $ \tpkg -> do handle <- runProcess' cfgHaddockPath $ processConfig |