diff options
| -rw-r--r-- | tests/runtests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/runtests.hs b/tests/runtests.hs index 89ea844b..1c1edd39 100644 --- a/tests/runtests.hs +++ b/tests/runtests.hs @@ -53,5 +53,5 @@ test = do code <- waitForProcess handle -- code <- system $ printf "haddock -w -o %s -h --optghc=-fglasgow-exts --optghc=-w %s" outdir (unwords mods') - unless (code == ExitSuccess) $ error "Haddock run failed! Exiting." + when (code /= ExitSuccess) $ error "Haddock run failed! Exiting." check mods (if not (null args) && args !! 0 == "all" then False else True) |