- ; when (isLoopBreaker (idOccInfo binder) && isInlinePragma (idInlinePragma binder))
- (addWarnL (ptext (sLit "INLINE binder is loop breaker:") <+> ppr binder))
+ ; when (isNonRuleLoopBreaker (idOccInfo binder) && isInlinePragma (idInlinePragma binder))
+ (addWarnL (ptext (sLit "INLINE binder is (non-rule) loop breaker:") <+> ppr binder))
+ -- Only non-rule loop breakers inhibit inlining