2013-04-01 06:55:29 +00:00
|
|
|
module Foo (foo, fooQ) where
|
2013-03-13 04:37:17 +00:00
|
|
|
import Language.Haskell.TH
|
2013-04-01 06:55:29 +00:00
|
|
|
import Language.Haskell.TH.Quote (QuasiQuoter(..))
|
2013-03-13 04:37:17 +00:00
|
|
|
|
|
|
|
|
foo :: ExpQ
|
|
|
|
|
foo = stringE "foo"
|
2013-04-01 06:55:29 +00:00
|
|
|
|
|
|
|
|
fooQ :: QuasiQuoter
|
|
|
|
|
fooQ = QuasiQuoter (litE . stringL) undefined undefined undefined
|
