-checkPrecMatch True op (L _ (Match (p1:p2:_) _ _))
- -- True indicates an infix lhs
- = -- See comments with rnExpr (OpApp ...) about "deriving"
- checkPrec op (unLoc p1) False `thenM_`
- checkPrec op (unLoc p2) True
-
-checkPrecMatch True op _ = panic "checkPrecMatch"