make sure test builds on ghc 7

nick8325 · Mar 21, 2024 · 8c8707b · 8c8707b
1 parent 174ef9f
commit 8c8707b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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