test/data/Foo.hs

module Foo (foo, fooQ) where
import Language.Haskell.TH
import Language.Haskell.TH.Quote (QuasiQuoter(..))

foo :: ExpQ
foo = stringE "foo"

fooQ :: QuasiQuoter
fooQ = QuasiQuoter (litE . stringL) undefined undefined undefined
Add a test case for checking QuasiQuotes module 2013-04-01 15:55:29 +09:00			`module Foo (foo, fooQ) where`
test for fast (not TH). 2013-03-13 13:37:17 +09:00			`import Language.Haskell.TH`
Add a test case for checking QuasiQuotes module 2013-04-01 15:55:29 +09:00			`import Language.Haskell.TH.Quote (QuasiQuoter(..))`
test for fast (not TH). 2013-03-13 13:37:17 +09:00
			`foo :: ExpQ`
			`foo = stringE "foo"`
Add a test case for checking QuasiQuotes module 2013-04-01 15:55:29 +09:00
			`fooQ :: QuasiQuoter`
			`fooQ = QuasiQuoter (litE . stringL) undefined undefined undefined`