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 @@ -886,9 +886,17 @@ applyEquation term rule = fmap (either Failure Success) $ runExceptT $ do
886
886
renderOneLineText $
887
887
" Known true side conditions (won't check):" <+> hsep (intersperse " ," $ map pretty knownTrue)
888
888
889
+ -- unclear conditions may have been simplified and
890
+ -- could now be syntactically present in the path constraints, check again
891
+ -- FIXME: factor this filtering out into a function ans use above
889
892
unclearConditions' <- catMaybes <$> mapM (checkConstraint ConditionFalse ) toCheck
893
+ let (newKnownTrue, stillUnclear) = partition (`Set.member` knownPredicates) unclearConditions'
894
+ unless (null newKnownTrue) $
895
+ logMessage $
896
+ renderOneLineText $
897
+ " Known true side conditions (won't check):" <+> hsep (intersperse " ," $ map pretty knownTrue)
890
898
891
- case unclearConditions' of
899
+ case stillUnclear of
892
900
[] -> do
893
901
-- check ensured conditions, filter any
894
902
-- true ones, prune if any is false
You can’t perform that action at this time.
0 commit comments