testsuite/tests/th/T13473a.hs


1
2
3
4
5
6
7
8
9
10

module T13473a where

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

quoter :: QuasiQuoter
quoter = QuasiQuoter { quotePat  = varP . mkName
                     , quoteExp  = undefined
                     , quoteDec  = undefined
                     , quoteType = undefined }