Tuple predicates in Template Haskell