From 7b317effd59f56bc8450ea8efbb1ef5954f09e5d Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Sun, 8 Jan 2017 08:34:30 +1100 Subject: TH: Add Trustworthy language pragma Test Plan: validate Reviewers: goldfire, bgamari, austin, RyanGlScott Reviewed By: RyanGlScott Subscribers: RyanGlScott, simonpj, thomie, goldfire Differential Revision: https://phabricator.haskell.org/D2546 GHC Trac Issues: #12511 --- testsuite/tests/safeHaskell/safeLanguage/SafeLang12.hs | 2 -- testsuite/tests/safeHaskell/safeLanguage/SafeLang12.stderr | 7 ++++--- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'testsuite/tests/safeHaskell') diff --git a/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.hs b/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.hs index 5f1e51c956..ba5766b064 100644 --- a/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.hs +++ b/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.hs @@ -10,5 +10,3 @@ $(mkSimpleClass ''A) main = do let b = c :: A putStrLn $ "I have a value of A :: " ++ show b - - diff --git a/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.stderr b/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.stderr index b23875bf1d..55aa3a5a6c 100644 --- a/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.stderr +++ b/testsuite/tests/safeHaskell/safeLanguage/SafeLang12.stderr @@ -6,7 +6,8 @@ SafeLang12_B.hs:2:14: warning: -XTemplateHaskell is not allowed in Safe Haskell; ignoring -XTemplateHaskell [1 of 3] Compiling SafeLang12_A ( SafeLang12_A.hs, SafeLang12_A.o ) [2 of 3] Compiling SafeLang12_B ( SafeLang12_B.hs, SafeLang12_B.o ) +[3 of 3] Compiling Main ( SafeLang12.hs, SafeLang12.o ) -SafeLang12_B.hs:5:1: error: - Language.Haskell.TH: Can't be safely imported! - The module itself isn't safe. +SafeLang12.hs:8:1: error: + parse error on input ‘$’ + Perhaps you intended to use TemplateHaskell -- cgit v1.2.1