diff options
Diffstat (limited to 'testsuite/tests/quasiquotation/qq009/QQ.hs')
-rw-r--r-- | testsuite/tests/quasiquotation/qq009/QQ.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/quasiquotation/qq009/QQ.hs b/testsuite/tests/quasiquotation/qq009/QQ.hs new file mode 100644 index 0000000000..89350bac60 --- /dev/null +++ b/testsuite/tests/quasiquotation/qq009/QQ.hs @@ -0,0 +1,14 @@ +{-# LANGUAGE TemplateHaskell #-} +module QQ where + +import Language.Haskell.TH.Quote +import Language.Haskell.TH.Syntax +import Language.Haskell.TH + +pq = QuasiQuoter { quoteDec = \_ -> return [sig], + quoteType = \_ -> undefined, + quoteExp = \_ -> undefined, + quotePat = \_ -> undefined } + +sig = SigD (mkName "f") (ArrowT `AppT` int `AppT` int) +int = ConT (mkName "Int") |