Fix Trac #2358: 1-tuples in Template Haskell