File tree Expand file tree Collapse file tree 1 file changed +9
-1
lines changed
booster/library/Booster/Pattern Expand file tree Collapse file tree 1 file changed +9
-1
lines changed Original file line number Diff line number Diff line change @@ -967,9 +967,17 @@ applyEquation term rule = withRuleContext rule $ fmap (either Failure Success) $
967
967
renderOneLineText $
968
968
" Known true side conditions (won't check):" <+> hsep (intersperse " ," $ map pretty knownTrue)
969
969
970
+ -- unclear conditions may have been simplified and
971
+ -- could now be syntactically present in the path constraints, check again
972
+ -- FIXME: factor this filtering out into a function ans use above
970
973
unclearConditions' <- catMaybes <$> mapM (checkConstraint ConditionFalse ) toCheck
974
+ let (newKnownTrue, stillUnclear) = partition (`Set.member` knownPredicates) unclearConditions'
975
+ unless (null newKnownTrue) $
976
+ logMessage $
977
+ renderOneLineText $
978
+ " Known true side conditions (won't check):" <+> hsep (intersperse " ," $ map pretty knownTrue)
971
979
972
- case unclearConditions' of
980
+ case stillUnclear of
973
981
[] -> do
974
982
-- check ensured conditions, filter any
975
983
-- true ones, prune if any is false
You can’t perform that action at this time.
0 commit comments