diff options
Diffstat (limited to 'testsuite/tests/perf/should_run/T7257.hs')
| -rw-r--r-- | testsuite/tests/perf/should_run/T7257.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/testsuite/tests/perf/should_run/T7257.hs b/testsuite/tests/perf/should_run/T7257.hs index 8907c3c918..17b103a3d8 100644 --- a/testsuite/tests/perf/should_run/T7257.hs +++ b/testsuite/tests/perf/should_run/T7257.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE BangPatterns #-} module Main where @@ -22,8 +23,8 @@ undo ref = do main = do ref <- newIORef [S.empty] let fn n = do - doStuff ref n - when (rem 5 n /= 0 ) $ undo ref + doStuff ref n + when (rem 5 n /= 0 ) $ undo ref mapM_ fn (take 5000000 $ cycle [1..100]) var <- readIORef ref |