From ebf06f31c1eaf0e9d045f8472548196d47d53431 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Tue, 18 Aug 2015 22:30:06 +0200
Subject: Fix bug with test runner invoking Haddock in incorrect mode.

---
 html-test/Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'html-test')

diff --git a/html-test/Main.hs b/html-test/Main.hs
index 49e769f5..724d35ec 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -25,7 +25,11 @@ dirConfig = (defaultDirConfig $ takeDirectory __FILE__)
 
 
 main :: IO ()
-main = runAndCheck =<< parseArgs checkConfig dirConfig =<< getArgs
+main = do
+    cfg <- parseArgs checkConfig dirConfig =<< getArgs
+    runAndCheck $ cfg
+        { cfgHaddockArgs = cfgHaddockArgs cfg ++ ["--pretty-html", "--html"]
+        }
 
 
 stripIfRequired :: String -> Xhtml -> Xhtml
-- 
cgit v1.2.3