th-desugar-1.6: Functions to desugar Template Haskell