diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-18 22:30:06 +0200 |
|---|---|---|
| committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-08-22 23:40:28 +0200 |
| commit | ebf06f31c1eaf0e9d045f8472548196d47d53431 (patch) | |
| tree | 52ef05e289efebc4020bfd6f8817477b3a3f7e6b /hypsrc-test | |
| parent | f7337b12cc3c198a3827c31cbc2854501f360595 (diff) | |
Fix bug with test runner invoking Haddock in incorrect mode.
Diffstat (limited to 'hypsrc-test')
| -rw-r--r-- | hypsrc-test/Main.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/hypsrc-test/Main.hs b/hypsrc-test/Main.hs index 7fa4a705..06cf8546 100644 --- a/hypsrc-test/Main.hs +++ b/hypsrc-test/Main.hs @@ -30,7 +30,14 @@ 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" + , "--hyperlinked-source" + ] + } checkIgnore :: FilePath -> Bool |