diff options
Diffstat (limited to 'libraries/ghc-compact')
| -rw-r--r-- | libraries/ghc-compact/tests/all.T | 2 | ||||
| -rw-r--r-- | libraries/ghc-compact/tests/compact_gc.hs | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/libraries/ghc-compact/tests/all.T b/libraries/ghc-compact/tests/all.T index 4a1bab9336..24f5d6d2b4 100644 --- a/libraries/ghc-compact/tests/all.T +++ b/libraries/ghc-compact/tests/all.T @@ -1,4 +1,4 @@ -setTestOpts(extra_ways(['sanity'])) +setTestOpts(extra_ways(['sanity', 'compacting_gc'])) test('compact_simple', normal, compile_and_run, ['']) test('compact_loop', normal, compile_and_run, ['']) 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 |