diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-02 08:52:08 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-02 08:52:08 +0100 |
| commit | d947d38fe3b3fae4c3393c968c39c9082ae5c078 (patch) | |
| tree | a35175627380f5e6f874df979a831f149c756f50 /testsuite/tests/th/T5434a.hs | |
| parent | 8af2f36d6418efec6b0d1ca9d4ac10a2cba6989e (diff) | |
| download | haskell-d947d38fe3b3fae4c3393c968c39c9082ae5c078.tar.gz | |
Test Trac #5434 and #5452
Diffstat (limited to 'testsuite/tests/th/T5434a.hs')
| -rw-r--r-- | testsuite/tests/th/T5434a.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5434a.hs b/testsuite/tests/th/T5434a.hs new file mode 100644 index 0000000000..f4d052ca2b --- /dev/null +++ b/testsuite/tests/th/T5434a.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE TemplateHaskell #-} + +module T5434a where + +import Language.Haskell.TH + +genShadow1 :: Q [Dec] +genShadow1 = + [d| x :: Char + x = 'x' + |] + +genShadow2 :: Q [Dec] +genShadow2 = + [d| z :: Char + z = succ x + where x = 'y' + |] |