From c96ac677097f3500ca923a5b3a32818f8f75a5be Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Tue, 4 Aug 2015 14:44:01 +0200
Subject: Fix bug with test runner not producing any output files.

---
 html-test/run.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'html-test')

diff --git a/html-test/run.hs b/html-test/run.hs
index 62e8bc23..5678a877 100755
--- a/html-test/run.hs
+++ b/html-test/run.hs
@@ -61,7 +61,7 @@ checkOutput _ = return () -- TODO.
 runHaddock :: Config -> IO ()
 runHaddock (Config { .. }) = do
     handle <- runProcess' cfgHaddockPath $ processConfig
-        { pcArgs = cfgHaddockArgs
+        { pcArgs = cfgHaddockArgs ++ cfgFiles
         , pcEnv = Just $ cfgEnv
         }
     waitForSuccess "Failed to run Haddock on specified test files" handle
@@ -100,6 +100,7 @@ loadConfig flags files = do
         [ pure ["--no-warnings"]
         , pure ["--odir=" ++ outDir]
         , pure ["--pretty-html"]
+        , pure ["--html"]
         , pure ["--optghc=-w"]
         , pure $ flagsHaddockOptions flags
         , baseDependencies cfgGhcPath
-- 
cgit v1.2.3