[worker] use TSArchive as timeout strategy, by default

src/Gargantext/Core/Worker/Jobs.hs

@@ -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'