diff options
Diffstat (limited to 'libraries/ghc-compact/tests/compact_gc.hs')
| -rw-r--r-- | libraries/ghc-compact/tests/compact_gc.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libraries/ghc-compact/tests/compact_gc.hs b/libraries/ghc-compact/tests/compact_gc.hs index 2e13bafdbe..f5df01fd5e 100644 --- a/libraries/ghc-compact/tests/compact_gc.hs +++ b/libraries/ghc-compact/tests/compact_gc.hs @@ -6,6 +6,8 @@ main = do let m = Map.fromList [(x,show x) | x <- [1..(10000::Int)]] c <- compactWithSharing m print =<< compactSize c - c <- foldM (\c _ -> do c <- compactWithSharing (getCompact c); print =<< compactSize c; return c) c [1..10] + c <- foldM (\c _ -> do c <- compactWithSharing (getCompact c) + print =<< compactSize c + return c) c [1..10] print (length (show (getCompact c))) print =<< compactSize c |