From 5da90733ea03cdb935478e0665b45fe44c116728 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Tue, 30 Jun 2015 22:28:12 +0200
Subject: Fix hyperlinker test runner file paths and add pretty-printing
 option.

---
 hypsrc-test/run.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/hypsrc-test/run.hs b/hypsrc-test/run.hs
index 549f33f7..e9a38c0c 100755
--- a/hypsrc-test/run.hs
+++ b/hypsrc-test/run.hs
@@ -20,13 +20,15 @@ import Distribution.Simple.Utils hiding (die)
 
 
 baseDir, rootDir :: FilePath
-baseDir = takeDirectory __FILE__ 
+baseDir = takeDirectory __FILE__
 rootDir = baseDir </> ".."
 
-srcDir, refDir, outDir :: FilePath
+srcDir, refDir, outDir, refDir', outDir' :: FilePath
 srcDir = baseDir </> "src"
 refDir = baseDir </> "ref"
 outDir = baseDir </> "out"
+refDir' = refDir </> "src"
+outDir' = outDir </> "src"
 
 haddockPath :: FilePath
 haddockPath = rootDir </> "dist" </> "build" </> "haddock" </> "haddock"
@@ -51,6 +53,7 @@ main = do
         [ "--odir=" ++ outDir
         , "--no-warnings"
         , "--hyperlinked-source"
+        , "--pretty-html"
         ] ++ args' ++ mods'
 
     forM_ mods' $ check True
@@ -72,8 +75,8 @@ check strict mdl = do
     else do
         putStrLn $ "Pass: " ++ mdl ++ " (no reference file)"
   where
-    refFile = refDir </> takeBaseName mdl ++ ".html"
-    outFile = outDir </> takeBaseName mdl ++ ".html"
+    refFile = refDir' </> takeBaseName mdl ++ ".html"
+    outFile = outDir' </> takeBaseName mdl ++ ".html"
 
 
 diff :: FilePath -> FilePath -> IO ()
-- 
cgit v1.2.3