exit nonzero when there were failure, not just errors

ya, I need a test suite for my test suite

test.hs

@@ -64,8 +64,8 @@ main = do
 	propigate r
 
 propigate :: (Counts, Int) -> IO ()
-propigate (Counts { errors = e }, _)
+propigate (Counts { errors = e , failures = f }, _)
-	| e > 0 = error "failed"
+	| e+f > 0 = error "failed"
 	| otherwise = return ()
 
 quickcheck :: Test