aboutsummaryrefslogtreecommitdiff
path: root/haddock-test/src/Test/Haddock.hs
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-18 21:55:15 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-22 23:40:27 +0200
commiteff66b0bbf6f7ccc8f24ab21131be59b137fea47 (patch)
tree8080ee52e409c1b282a3f1e9850e132c072bcf09 /haddock-test/src/Test/Haddock.hs
parent8efa6cbc72bbdad8dceb06896f8c1e7a90ab6c6a (diff)
Fix bug with not all test output files being checked.
Diffstat (limited to 'haddock-test/src/Test/Haddock.hs')
-rw-r--r--haddock-test/src/Test/Haddock.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/haddock-test/src/Test/Haddock.hs b/haddock-test/src/Test/Haddock.hs
index 581b0d10..ab6ce775 100644
--- a/haddock-test/src/Test/Haddock.hs
+++ b/haddock-test/src/Test/Haddock.hs
@@ -19,6 +19,7 @@ import System.Process
import Test.Haddock.Config
import Test.Haddock.Process
+import Test.Haddock.Utils
data CheckResult
@@ -38,7 +39,7 @@ checkFiles :: Config c -> IO ()
checkFiles cfg@(Config { .. }) = do
putStrLn "Testing output files..."
- files <- ignore <$> getDirectoryContents (cfgOutDir cfg)
+ files <- ignore <$> getDirectoryTree (cfgOutDir cfg)
failed <- liftM catMaybes . forM files $ \file -> do
putStr $ "Checking \"" ++ file ++ "\"... "