haskell Expands type synonyms in Template Haskell ASTs