Skip to content

Commit 28f515b

Browse files
authored
Set extended timeout _after_ SMT.reinit in retries (#3829)
This comes from [an issue reported on slack](https://runtimeverification.slack.com/archives/C03NP1UP2KZ/p1713355335552379), where the SMT transcript showed that the timeout was not increased as intended.
1 parent c391d6b commit 28f515b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

kore/src/Kore/Rewrite/SMT/Evaluator.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -224,7 +224,7 @@ retryWithScaledTimeout q = do
224224
retryOnceWithScaledTimeout :: MonadSMT m => m a -> Integer -> m a
225225
retryOnceWithScaledTimeout action scale =
226226
-- reinit with scaled timeout to override the original timeout
227-
SMT.localTimeOut (scaleTimeOut scale) $ SMT.reinit >> action
227+
SMT.reinit >> SMT.localTimeOut (scaleTimeOut scale) action
228228

229229
scaleTimeOut :: Integer -> SMT.TimeOut -> SMT.TimeOut
230230
scaleTimeOut _ (SMT.TimeOut Unlimited) = SMT.TimeOut Unlimited

0 commit comments

Comments
 (0)