1{-# LANGUAGE QuasiQuotes #-} 2import qualified Language.Haskell.TH as T 3 4x :: T.DecsQ 5x = [T.d|id|] 6 7