th-desugar-1.18: Functions to desugar Template Haskell