[Haskell-cafe] [template haskell] Sharing names between constructors and types