[worker] modify default job settings - use TSDelete, don't repeat on timeout

src/Gargantext/Core/Worker/Jobs.hs

@@ -45,23 +45,21 @@ 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 }
+      let job' = (updateJobData ws job $ W.mkDefaultSendJob' b queueName job) { W.delay = _wsDefaultDelay
+                                                                              , W.toStrat = WT.TSDelete }
       withLogger (gcConfig ^. gc_logging) $ \ioL ->
         $(logLoc) ioL DEBUG $ "[sendJob] sending job " <> show job <> " (delay " <> show (W.delay job') <> ")"
       W.sendJob' job'
 
 -- | We want to fine-tune job metadata parameters, for each job type
 updateJobData :: WorkerSettings -> Job -> SendJob -> SendJob
-updateJobData ws (AddCorpusTempFileAsync {}) sj = withLongTimeout ws $ sj { W.toStrat = WT.TSDelete
-                                                                          , W.resendOnKill = False }
+updateJobData ws (AddCorpusTempFileAsync {}) sj = withLongTimeout ws $ sj { W.resendOnKill = False }
 updateJobData ws (AddCorpusWithQuery {}) sj = withLongTimeout ws sj
 updateJobData ws (AddToAnnuaireWithForm {}) sj = withLongTimeout ws sj
-updateJobData ws (AddWithFile {}) sj = withLongTimeout ws $ sj { W.toStrat = WT.TSDelete
-                                                               , W.resendOnKill = False }
+updateJobData ws (AddWithFile {}) sj = withLongTimeout ws $ sj { W.resendOnKill = False }
 updateJobData ws (DocumentsFromWriteNodes {}) sj = withLongTimeout ws sj
 updateJobData ws (FrameCalcUpload {}) sj = withLongTimeout ws sj
-updateJobData ws (JSONPost {}) sj = withLongTimeout ws $ sj { W.toStrat = WT.TSDelete
-                                                            , W.resendOnKill = False }
+updateJobData ws (JSONPost {}) sj = withLongTimeout ws $ sj { W.resendOnKill = False }
 updateJobData ws (NgramsPostCharts {}) sj = withLongTimeout ws sj
 updateJobData ws (RecomputeGraph {}) sj = withLongTimeout ws sj
 updateJobData ws (UpdateNode {}) sj = withLongTimeout ws sj