diff options
| author | David Waern <david.waern@gmail.com> | 2009-03-28 21:09:41 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-03-28 21:09:41 +0000 |
| commit | 86969f32b8e9118933c87356dcb643eacda8da19 (patch) | |
| tree | 3e290d331dc391dcc6d351d1a7001dbe3aaad060 /tests/runtests.hs | |
| parent | 495a8d849a5c020ed7b8fd0abda3d5f477d21ed4 (diff) | |
Wibble
Diffstat (limited to 'tests/runtests.hs')
| -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) |