summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/quasiquotation/qq007/QQ.hs
blob: 3c13315a312f5afaa3680d1c7c9b8055634f250f (plain)
1
2
3
4
5
6
7
8
9
10
11
{-# LANGUAGE TemplateHaskell #-}
module QQ where

import Language.Haskell.TH.Quote
import Language.Haskell.TH

pq = QuasiQuoter { quoteDec = \_ -> [d| f x = x |], 
                   quoteType = \_ -> [t| Int -> Int |],
                   quoteExp = \_ -> [| $(varE (mkName "x")) + 1::Int |],
                   quotePat = \_ -> [p| Just x |] }