update tests for safe haskell changes

testsuite/tests/driver/T4437.hs

@@ -8,7 +8,7 @@ import Language.Haskell.Extension
 
 main :: IO ()
 main = do
-    let ghcExtensions = [ ext | (ext, _, _, _) <- xFlags ]
+    let ghcExtensions = [ ext | (ext, _, _) <- xFlags ]
         cabalExtensions = map show [ toEnum 0 :: KnownExtension .. ]
         ghcOnlyExtensions = ghcExtensions \\ cabalExtensions
         cabalOnlyExtensions = cabalExtensions \\ ghcExtensions

testsuite/tests/safeHaskell/safeLanguage/SafeLang01.stderr

 
 SafeLang01.hs:1:20:
-    Warning: XTemplateHaskell is not allowed in Safe Haskell; ignoring XTemplateHaskell
+    Warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell

testsuite/tests/safeHaskell/safeLanguage/SafeLang02.stderr

 
-<no location info>:
+SafeLang02.hs:1:20:
     Warning: -XGeneralizedNewtypeDeriving is not allowed in Safe Haskell; ignoring -XGeneralizedNewtypeDeriving

testsuite/tests/safeHaskell/safeLanguage/SafeLang07.stderr

 
-<no location info>:
+SafeLang07.hs:2:14:
     Warning: -XGeneralizedNewtypeDeriving is not allowed in Safe Haskell; ignoring -XGeneralizedNewtypeDeriving
 
 SafeLang07.hs:15:1:

testsuite/tests/safeHaskell/safeLanguage/SafeLang12.stderr

 
 SafeLang12.hs:2:14:
-    Warning: XTemplateHaskell is not allowed in Safe Haskell; ignoring XTemplateHaskell
+    Warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell
 
 SafeLang12_B.hs:2:14:
-    Warning: XTemplateHaskell is not allowed in Safe Haskell; ignoring XTemplateHaskell
+    Warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell
 [1 of 3] Compiling SafeLang12_B     ( SafeLang12_B.hs, SafeLang12_B.o )
 
 SafeLang12_B.hs:14:68:

testsuite/tests/safeHaskell/safeLanguage/SafeLang16.hs

+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE Safe #-}
+
+-- | Test SafeLanguage disables things
+-- Testing ordering doesn't matter this time
+-- with Safe appearing after TH.
+module SafeLang16 where
+
+f :: Int
+f = 1
+

testsuite/tests/safeHaskell/safeLanguage/SafeLang16.stderr

+
+SafeLang16.hs:1:14:
+    Warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell

testsuite/tests/safeHaskell/safeLanguage/all.T

@@ -46,3 +46,4 @@ test('SafeLang15',
       extra_clean(['SafeLang15_A.o', 'SafeLang15_A.hi'])],
      multimod_compile_and_run,
      ['SafeLang15', '-trust base -XSafe'])
+test('SafeLang16', normal, compile, [''])