[Template-haskell] TH preprocessing