diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-08-05 17:30:50 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-08-05 17:34:50 +0100 |
commit | df6ce95c9993778b1e68c3548e03216140a0e44f (patch) | |
tree | 8a1e8fae55b22d16a3aed0f260cded5c57552fdb | |
parent | 16333ad780300432b974f604d9fc20ad5c6aa773 (diff) | |
download | haskell-wip/jspace-fix.tar.gz |
Fix equality operator in jspace testwip/jspace-fix
-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 () |