[Haskell-cafe] Template Haskell: Generate annotated function of a typeclass