From 86969f32b8e9118933c87356dcb643eacda8da19 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 28 Mar 2009 21:09:41 +0000
Subject: Wibble

---
 tests/runtests.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/runtests.hs')

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)
-- 
cgit v1.2.3