Commit b8aa49b6 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5597

parent 346205ef
{-# LANGUAGE TemplateHaskell #-}
module T5597 where
import T5597a( f )
g = $(f [t| (Int, Int) |])
{-# LANGUAGE TemplateHaskell #-}
module T5597a where
import Language.Haskell.TH
f :: Q Type -> Q Exp
f t = [| (3,4) :: $t |]
......@@ -213,3 +213,5 @@ test('TH_Depends',
'TH_Depends_external.txt'])],
run_command,
['$MAKE -s --no-print-directory TH_Depends'])
test('T5597', extra_clean(['T5597a.hi','T5597a.o']),
multimod_compile, ['T5597','-v0'])
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