diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-08-05 17:30:50 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-05 22:01:04 -0400 |
commit | 50c8e1c5684eda39ba1c7f78fcd0eff57f1b5dbd (patch) | |
tree | 01cb8271866bb4fe6505da0401c28e7152d63fb5 | |
parent | 037bc9c94a7977d0382b9d510b4ba6c08f87fbfb (diff) | |
download | haskell-50c8e1c5684eda39ba1c7f78fcd0eff57f1b5dbd.tar.gz |
Fix equality operator in jspace test
-rw-r--r-- | testsuite/tests/driver/j-space/jspace.hs | 4 |
1 files 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 () |