Skip to content

Commit c41d860

Browse files
ttuegelrv-jenkins
andauthored
trackProofDepth: Strict in ProofDepth (#2033)
It is necessary to be explicitly strict in the ProofDepth because the tuple constructor (,) is lazy. Co-authored-by: rv-jenkins <admin@runtimeverification.com>
1 parent 8a53ba8 commit c41d860

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

kore/src/Kore/Strategies/Verification.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -409,7 +409,7 @@ trackProofDepth
409409
:: forall m rule goal
410410
. TransitionRule m rule (ProofState goal)
411411
-> TransitionRule m rule (ProofDepth, ProofState goal)
412-
trackProofDepth rule prim (proofDepth, proofState) = do
412+
trackProofDepth rule prim (!proofDepth, proofState) = do
413413
proofState' <- rule prim proofState
414414
let proofDepth' = (if didRewrite proofState' then succ else id) proofDepth
415415
pure (proofDepth', proofState')

0 commit comments

Comments
 (0)