diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-04-20 17:34:05 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-04-20 17:34:05 +0100 |
| commit | 16fb7aebe43a55c515c5c89bf58dd12fd323b21f (patch) | |
| tree | fb428384eea253ede31a2aeb8cfe371374a2abc2 /testsuite/tests | |
| parent | c958de128e15ff5302a1e2c7cd1b23622592d7c0 (diff) | |
| download | haskell-16fb7aebe43a55c515c5c89bf58dd12fd323b21f.tar.gz | |
Test Trac #5126
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghc-regress/th/T5126.hs | 12 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/th/all.T | 1 |
2 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/th/T5126.hs b/testsuite/tests/ghc-regress/th/T5126.hs new file mode 100644 index 0000000000..668f82ae0b --- /dev/null +++ b/testsuite/tests/ghc-regress/th/T5126.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE TemplateHaskell #-} +module T5126 where + +import Language.Haskell.TH +import Language.Haskell.TH.Syntax + +f :: Q [Dec] +f = + [d| + x2 :: $(conT ''Int) + x2 = undefined + |] diff --git a/testsuite/tests/ghc-regress/th/all.T b/testsuite/tests/ghc-regress/th/all.T index 9b7c0828ec..aa96bc674b 100644 --- a/testsuite/tests/ghc-regress/th/all.T +++ b/testsuite/tests/ghc-regress/th/all.T @@ -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']) |