[Haskell-cafe] How to call constructor from Template Haskell