diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-11-03 20:26:14 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-11-21 11:15:46 -0500 |
| commit | adb20a0aec89047af397ef8c3fcde78217e6e5f6 (patch) | |
| tree | 348a59dc148b11412b47753c4580a563d1642173 /testsuite/tests/th/T1476.hs | |
| parent | da2fca9e2be8c61c91c034d8c2302d8b1d1e7b41 (diff) | |
| download | haskell-adb20a0aec89047af397ef8c3fcde78217e6e5f6.tar.gz | |
Test #1476 in th/T1476
Diffstat (limited to 'testsuite/tests/th/T1476.hs')
| -rw-r--r-- | testsuite/tests/th/T1476.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/th/T1476.hs b/testsuite/tests/th/T1476.hs new file mode 100644 index 0000000000..7e3a192ba0 --- /dev/null +++ b/testsuite/tests/th/T1476.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE TemplateHaskell #-} + +module T1476 where + +import Language.Haskell.TH + +foo $( return $ VarP $ mkName "x" ) = x +bar $( [p| x |] ) = x + +baz = [| \ $( return $ VarP $ mkName "x" ) -> $(dyn "x") |] |