From 8c8707b8fe5feaea5a941e1b8e067fd57ae878b3 Mon Sep 17 00:00:00 2001 From: Maximilian Algehed Date: Thu, 21 Mar 2024 09:26:27 +0100 Subject: [PATCH] make sure test builds on ghc 7 --- tests/DiscardRatio.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/DiscardRatio.hs b/tests/DiscardRatio.hs index ed070538..5d2f8280 100644 --- a/tests/DiscardRatio.hs +++ b/tests/DiscardRatio.hs @@ -8,7 +8,7 @@ assert :: String -> Bool -> IO () assert s False = do putStrLn $ s ++ " failed!" exitFailure -assert _ _ = pure () +assert _ _ = return () quickCheckYesWith, quickCheckNoWith :: Testable p => Args -> p -> IO () quickCheckYesWith args p = do