[Template-haskell] Pattern reification in Template Haskell