exit nonzero when there were failure, not just errors

ya, I need a test suite for my test suite

1 files changed, 2 insertions, 2 deletions

diff --git a/test.hs b/test.hs
index ab4766b42..2cb0415ab 100644
--- a/test.hs
+++ b/test.hs
@@ -64,8 +64,8 @@ main = do
 	propigate r
 
 propigate :: (Counts, Int) -> IO ()
-propigate (Counts { errors = e }, _)
-	| e > 0 = error "failed"
+propigate (Counts { errors = e , failures = f }, _)
+	| e+f > 0 = error "failed"
 	| otherwise = return ()
 
 quickcheck :: Test