diff options
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 |
commit | 5da90733ea03cdb935478e0665b45fe44c116728 (patch) | |
tree | fdb6af76b30c70e760be122fe1375ce3597292ad | |
parent | beab75b0d28117c9b1e56d3a88e8aac70d5bd0b9 (diff) |
Fix hyperlinker test runner file paths and add pretty-printing option.
-rwxr-xr-x | hypsrc-test/run.hs | 11 |
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 () |