Commit 29caf2ac authored by dterei's avatar dterei

update tests for safe haskell changes

parent 2957cfc0
......@@ -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
......
SafeLang01.hs:1:20:
Warning: XTemplateHaskell is not allowed in Safe Haskell; ignoring XTemplateHaskell
Warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell
<no location info>:
SafeLang02.hs:1:20:
Warning: -XGeneralizedNewtypeDeriving is not allowed in Safe Haskell; ignoring -XGeneralizedNewtypeDeriving
<no location info>:
SafeLang07.hs:2:14:
Warning: -XGeneralizedNewtypeDeriving is not allowed in Safe Haskell; ignoring -XGeneralizedNewtypeDeriving
SafeLang07.hs:15:1:
......
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:
......
{-# 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
SafeLang16.hs:1:14:
Warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell
......@@ -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, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment