[Haskell-cafe] Filtering on data constructors with TH