react to review comments

nick8325 · Mar 19, 2024 · ae72e02 · ae72e02
1 parent 3fe9e7d
commit ae72e02
Showing 1 changed file with 2 additions and 6 deletions.
diff --git 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