From ae72e0223aa1c3b5c89ac08b78fc052e6701bf84 Mon Sep 17 00:00:00 2001 From: Maximilian Algehed Date: Tue, 19 Mar 2024 09:23:08 +0100 Subject: [PATCH] react to review comments --- tests/DiscardRatio.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/tests/DiscardRatio.hs b/tests/DiscardRatio.hs index 91d8638e..f288de8f 100644 --- a/tests/DiscardRatio.hs +++ b/tests/DiscardRatio.hs @@ -12,14 +12,10 @@ assert _ _ = pure () quickCheckYes, quickCheckNo :: Property -> IO () quickCheckYes p = do res <- quickCheckResult p - if isSuccess res - then pure () - else exitFailure + unless (isSuccess res) exitFailure quickCheckNo p = do res <- quickCheckResult p - if isSuccess res - then exitFailure - else pure () + when (isSuccess res) exitFailure check :: Result -> Int -> Int -> IO () check res n d = do