Fix one of Template Haskell bugs