diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_run')
-rw-r--r-- | testsuite/tests/simplCore/should_run/T5315.hs | 1 | ||||
-rw-r--r-- | testsuite/tests/simplCore/should_run/runST.hs | 7 |
2 files changed, 5 insertions, 3 deletions
diff --git a/testsuite/tests/simplCore/should_run/T5315.hs b/testsuite/tests/simplCore/should_run/T5315.hs index 5b2ff39346..6af1fa2332 100644 --- a/testsuite/tests/simplCore/should_run/T5315.hs +++ b/testsuite/tests/simplCore/should_run/T5315.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE Haskell2010 #-} {-# LANGUAGE UnicodeSyntax #-} {-# LANGUAGE EmptyDataDecls #-} {-# LANGUAGE TypeOperators #-} diff --git a/testsuite/tests/simplCore/should_run/runST.hs b/testsuite/tests/simplCore/should_run/runST.hs index dc06c243cf..0357778ce2 100644 --- a/testsuite/tests/simplCore/should_run/runST.hs +++ b/testsuite/tests/simplCore/should_run/runST.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE Haskell2010 #-} import Control.Monad.ST import Data.STRef @@ -7,7 +8,7 @@ import Data.STRef main = let f () = runST $ do - ref <- newSTRef 0 - modifySTRef ref (+1) - readSTRef ref + ref <- newSTRef 0 + modifySTRef ref (+1) + readSTRef ref in print (f () + f ()) |