Use GHC2021 as default language

10 files changed, 13 insertions, 4 deletions

diff --git a/testsuite/tests/simplCore/should_compile/T14270a.hs b/testsuite/tests/simplCore/should_compile/T14270a.hs
index b69de35eec..1cf422f709 100644
--- a/testsuite/tests/simplCore/should_compile/T14270a.hs
+++ b/testsuite/tests/simplCore/should_compile/T14270a.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 {-# LANGUAGE TypeApplications, ScopedTypeVariables, GADTs, RankNTypes,
              PolyKinds, KindSignatures #-}
 {-# OPTIONS_GHC -O2 #-} -- We are provoking a bug in GHC.Core.Opt.SpecConstr
diff --git a/testsuite/tests/simplCore/should_compile/T16038/A.hs b/testsuite/tests/simplCore/should_compile/T16038/A.hs
index 3e5137bf94..5bff464334 100644
--- a/testsuite/tests/simplCore/should_compile/T16038/A.hs
+++ b/testsuite/tests/simplCore/should_compile/T16038/A.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 module A where
 
 import B
diff --git a/testsuite/tests/simplCore/should_compile/T16038/A.hs-boot b/testsuite/tests/simplCore/should_compile/T16038/A.hs-boot
index 48f6768e39..bad91fcdd0 100644
--- a/testsuite/tests/simplCore/should_compile/T16038/A.hs-boot
+++ b/testsuite/tests/simplCore/should_compile/T16038/A.hs-boot
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 module A where
 
 data HsExpr i
diff --git a/testsuite/tests/simplCore/should_compile/T16038/B.hs b/testsuite/tests/simplCore/should_compile/T16038/B.hs
index 9eb315a419..98ab2d7ee6 100644
--- a/testsuite/tests/simplCore/should_compile/T16038/B.hs
+++ b/testsuite/tests/simplCore/should_compile/T16038/B.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 module B where
 
 import {-# SOURCE #-} A (HsExpr)
diff --git a/testsuite/tests/simplCore/should_compile/T16979b.hs b/testsuite/tests/simplCore/should_compile/T16979b.hs
index d2b5712674..92c6d28a07 100644
--- a/testsuite/tests/simplCore/should_compile/T16979b.hs
+++ b/testsuite/tests/simplCore/should_compile/T16979b.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 {-# LANGUAGE AllowAmbiguousTypes    #-}
 {-# LANGUAGE DataKinds              #-}
 {-# LANGUAGE DeriveGeneric          #-}
diff --git a/testsuite/tests/simplCore/should_compile/T5329.hs b/testsuite/tests/simplCore/should_compile/T5329.hs
index f681103578..3c14ee8132 100644
--- a/testsuite/tests/simplCore/should_compile/T5329.hs
+++ b/testsuite/tests/simplCore/should_compile/T5329.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 {-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
 {-# LANGUAGE UnicodeSyntax #-}
 {-# LANGUAGE EmptyDataDecls #-}
diff --git a/testsuite/tests/simplCore/should_compile/T8331.stderr b/testsuite/tests/simplCore/should_compile/T8331.stderr
index 1c51037481..0fbd7a577c 100644
--- a/testsuite/tests/simplCore/should_compile/T8331.stderr
+++ b/testsuite/tests/simplCore/should_compile/T8331.stderr
@@ -7,7 +7,7 @@
       = (useAbstractMonad1 @s)
         `cast` (<Int>_R
                 %<'Many>_N ->_R <Int>_R %<'Many>_N ->_R Sym (N:ST[0] <s>_N <Int>_R)
-                                ; Sym (N:ReaderT[0] <Int>_R <ST s>_R <Int>_N)
+                                ; Sym (N:ReaderT[0] <*>_N <Int>_R <ST s>_R <Int>_N)
                 :: Coercible
                      (Int -> Int -> STRep s Int) (Int -> ReaderT Int (ST s) Int))
 
diff --git a/testsuite/tests/simplCore/should_compile/rule2.hs b/testsuite/tests/simplCore/should_compile/rule2.hs
index 2b091de5e9..97b50b92d9 100644
--- a/testsuite/tests/simplCore/should_compile/rule2.hs
+++ b/testsuite/tests/simplCore/should_compile/rule2.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE Haskell2010 #-}
 {-# LANGUAGE RankNTypes #-}
 {-# OPTIONS_GHC -ddump-simpl-stats #-}
 
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 ())