Commit 34534c53 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #7445

parent f3938cb5
......@@ -8,6 +8,9 @@ T2386:
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -c T2386_Lib.hs -fforce-recomp
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -c T2386.hs -fforce-recomp
T7445:
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -c T7445a.hs -fforce-recomp
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -c T7445.hs -fforce-recomp
HC_OPTS = -XTemplateHaskell -package template-haskell
......
{-# LANGUAGE TemplateHaskell #-}
module T7445 where
import T7445a
moo = $(foo)
{-# LANGUAGE DeriveDataTypeable, FlexibleContexts #-}
module T7445a ( foo ) where
import Data.Data
import Language.Haskell.TH.Quote
import Language.Haskell.TH
data Expr
= IntExpr Integer
deriving (Show, Typeable, Data)
foo :: ExpQ
foo = dataToExpQ (const Nothing) (IntExpr 1)
......@@ -254,3 +254,7 @@ test('T7092', extra_clean(['T7092a.hi','T7092a.o']),
multimod_compile, ['T7092','-v0'])
test('T7276', normal, compile_fail, ['-v0'])
test('T7276a', combined_output, ghci_script, ['T7276a.script'])
test('T7445', extra_clean(['T7445a.hi', 'T7445a.o']),
run_command,
['$MAKE -s --no-print-directory T7445'] )
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