Skip to content

Commit 7f7d667

Browse files
committed
Correct comments
1 parent 10f6b18 commit 7f7d667

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

booster/library/Booster/JsonRpc.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -166,7 +166,7 @@ respond stateVar request =
166166

167167
case evaluatedInitialPattern of
168168
(Left ApplyEquations.SideConditionFalse{}, _) -> do
169-
-- input pattern's constrains are Bottom, return Bottom
169+
-- input pattern's constraints are Bottom, return Vacuous
170170
stop <- liftIO $ getTime Monotonic
171171
pure $
172172
execResponse

booster/library/Booster/Pattern/ApplyEquations.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -463,7 +463,7 @@ evaluatePattern' ::
463463
EquationT io Pattern
464464
evaluatePattern' pat@Pattern{term, ceilConditions} = withPatternContext pat $ do
465465
solver <- (.smtSolver) <$> getConfig
466-
-- check initial constraints for consistency, reporting an error if they are Bottom
466+
-- check the pattern's constraints for consistency, reporting an error if they are Bottom
467467
withContext CtxConstraint
468468
. withContext CtxDetail
469469
. withTermContext (coerce $ collapseAndBools pat.constraints)
@@ -479,15 +479,15 @@ evaluatePattern' pat@Pattern{term, ceilConditions} = withPatternContext pat $ do
479479
throw . SideConditionFalse . collapseAndBools $ pat.constraints
480480
Left SMT.SMTSolverUnknown{} -> do
481481
-- unlikely case of an Unknown response to a consistency check.
482-
-- What to do here? continue for now to preserver the old behaviour.
482+
-- continue to preserver the old behaviour.
483483
withContext CtxConstraint . logWarn . Text.pack $
484484
"Constraints consistency UNKNOWN: " <> show consistent
485485
continue
486486
Left other ->
487487
-- fail hard on SMT error other than @SMT.SMTSolverUnknown@
488488
liftIO $ Exception.throw other
489489
Right True -> do
490-
-- constrains are consistent, continue
490+
-- constraints are consistent, continue
491491
continue
492492
where
493493
continue = do

0 commit comments

Comments
 (0)