Template Haskell: dataToExpQ and constructor mis-match