diff options
| author | Geoffrey Mainland <mainland@apeiron.net> | 2013-05-16 15:03:05 +0100 |
|---|---|---|
| committer | Geoffrey Mainland <mainland@apeiron.net> | 2013-10-04 14:58:40 -0400 |
| commit | 4ccdc324530d51caad2098774e741b6c8c4dd74f (patch) | |
| tree | 2694975937f32c5e048304eb0ce5a430e65e9d11 /testsuite/tests/th/T3920.hs | |
| parent | c5806bf6928daebb89b126efffdc2e2a00927250 (diff) | |
| download | haskell-4ccdc324530d51caad2098774e741b6c8c4dd74f.tar.gz | |
Adjust tests for new Template Haskell.
From the new Template Haskell proposal at
http://hackage.haskell.org/trac/ghc/blog/Template%20Haskell%20Proposal
A declaration group is the chunk of declarations created by a top-level
declaration splice, plus those following it, down to but not including the
next top-level declaration splice. Then the type environment seen by reify
includes all the declaration up to the end of the immediately preceding
declaration block, but no more.
This change adds '$(return [])' where necessary to allow following declarations
to see (module-local) top-level definitions.
Diffstat (limited to 'testsuite/tests/th/T3920.hs')
| -rw-r--r-- | testsuite/tests/th/T3920.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/testsuite/tests/th/T3920.hs b/testsuite/tests/th/T3920.hs index 8a8ac0b7d3..4d7ccef509 100644 --- a/testsuite/tests/th/T3920.hs +++ b/testsuite/tests/th/T3920.hs @@ -5,6 +5,8 @@ import Language.Haskell.TH type family S :: (* -> (* -> * -> *)) -> (* -> *) -> * +$(return []) + test :: String test = $(do test <- [d| |