From df6ce95c9993778b1e68c3548e03216140a0e44f Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Fri, 5 Aug 2022 17:30:50 +0100 Subject: Fix equality operator in jspace test --- testsuite/tests/driver/j-space/jspace.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/testsuite/tests/driver/j-space/jspace.hs b/testsuite/tests/driver/j-space/jspace.hs index d8a4fc9779..b0c83eb4d1 100644 --- a/testsuite/tests/driver/j-space/jspace.hs +++ b/testsuite/tests/driver/j-space/jspace.hs @@ -46,8 +46,8 @@ initGhcM xs = do -- There is some unexplained behaviour where the result is infrequently 3264.. but -- this resisted investigation using ghc-debug so the test actually checks whether there -- are less than 51 live ModDetails which is still a big improvement over before. - when (n >= (51 * word_size * 8)) $ do - putStrLn "Space leak detetched by jspace test:" + when (n > (51 * word_size * 8)) $ do + putStrLn "Space leak detected by jspace test:" putStrLn $ (show (n `div` (word_size * 8))) ++ " live ModDetails when <= 51 are expected" exitFailure return () -- cgit v1.2.1