blob: 89350bac60d9092e83400612b84e6911907f37da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE TemplateHaskell #-}
module QQ where
import Language.Haskell.TH.Quote
import Language.Haskell.TH.Syntax
import Language.Haskell.TH
pq = QuasiQuoter { quoteDec = \_ -> return [sig],
quoteType = \_ -> undefined,
quoteExp = \_ -> undefined,
quotePat = \_ -> undefined }
sig = SigD (mkName "f") (ArrowT `AppT` int `AppT` int)
int = ConT (mkName "Int")
|