aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test/run.hs
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-06-30 22:28:12 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-06-30 22:38:33 +0200
commit5da90733ea03cdb935478e0665b45fe44c116728 (patch)
treefdb6af76b30c70e760be122fe1375ce3597292ad /hypsrc-test/run.hs
parentbeab75b0d28117c9b1e56d3a88e8aac70d5bd0b9 (diff)
Fix hyperlinker test runner file paths and add pretty-printing option.
Diffstat (limited to 'hypsrc-test/run.hs')
-rwxr-xr-xhypsrc-test/run.hs11
1 files 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 ()