testsuite/tests/quasiquotation/T4150A.hs


1
2
3
4
5
6
7
8
9
10
11
12
13


module T4150A where

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

multiLineStr :: QuasiQuoter
multiLineStr = QuasiQuoter {
                   quoteExp  = stringE,
                   quotePat  = error "XXX",
                   quoteType = error "XXX",
                   quoteDec  = error "XXX"
               }