From eff66b0bbf6f7ccc8f24ab21131be59b137fea47 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Tue, 18 Aug 2015 21:55:15 +0200
Subject: Fix bug with not all test output files being checked.
---
haddock-test/src/Test/Haddock.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'haddock-test/src')
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 ++ "\"... "
--
cgit v1.2.3