WIP commit

saurabhnanda · Oct 10, 2023 · 8adcac5 · 8adcac5
1 parent 6c238b8
commit 8adcac5
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/OddJobs/Job.hs b/src/OddJobs/Job.hs
@@ -79,7 +79,6 @@ module OddJobs.Job
   , throwParsePayload
   , eitherParsePayloadWith
   , throwParsePayloadWith
-  , noJobResult
   )
 where
 
@@ -402,8 +401,8 @@ runJob jid = do
         onJobStart job
         runJobWithTimeout lockTimeout job
         endTime <- liftIO getCurrentTime
-        shouldDeleteJob <- immediateJobDeletion >>= (\fn -> liftIO $ fn newJob)
         let newJob = job{jobStatus=OddJobs.Types.Success, jobLockedBy=Nothing, jobLockedAt=Nothing, jobUpdatedAt = endTime}
+        shouldDeleteJob <- immediateJobDeletion >>= (\fn -> liftIO $ fn newJob)
         if shouldDeleteJob
           then deleteJob jid
           else void $ saveJob newJob