[worker] use TSArchive as timeout strategy, by default

parent 13d03d01
Pipeline #7764 failed with stages
in 18 minutes and 32 seconds
......@@ -45,7 +45,9 @@ sendJobWithCfg gcConfig job = do
Just wd -> do
b <- initBrokerWithDBCreate (gcConfig ^. gc_database_config) ws
let queueName = _wdQueue wd
let job' = (updateJobData ws job $ W.mkDefaultSendJob' b queueName job) { W.delay = _wsDefaultDelay }
-- don't allow to repeat infinitely (see #495)
let sj = (W.mkDefaultSendJob' b queueName job) { W.toStrat = WT.TSArchive }
let job' = (updateJobData ws job sj) { W.delay = _wsDefaultDelay }
withLogger (gcConfig ^. gc_logging) $ \ioL ->
$(logLoc) ioL DEBUG $ "[sendJob] sending job " <> show job <> " (delay " <> show (W.delay job') <> ")"
W.sendJob' job'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment