Commit 16fb7aeb authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5126

parent c958de12
{-# LANGUAGE TemplateHaskell #-}
module T5126 where
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
f :: Q [Dec]
f =
[d|
x2 :: $(conT ''Int)
x2 = undefined
|]
......@@ -178,3 +178,4 @@ test('T1835', normal, compile_and_run, ['-v0'])
test('TH_viewPatPrint', normal, compile_and_run, [''])
test('T4436', normal, compile, ['-v0 -ddump-splices'])
test('T4949', normal, compile, ['-v0'])
test('T5126', normal, compile, ['-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