aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/runtests.hs2
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)