testsuite/tests/plugins/QuasiQuotation.hs


1
2
3
4
5
6
7
8
9
10
11

module QuasiQuotation where

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

stringify :: QuasiQuoter
stringify =  QuasiQuoter { quoteExp = return . LitE . StringL
                         , quotePat = return . LitP . StringL
                         , quoteType = return . LitT . StrTyLit
                         , quoteDec = const (return [])
                         }