diff --git a/src/Jobs.hs b/src/Jobs.hs index f7d1b4935..19cd9b560 100644 --- a/src/Jobs.hs +++ b/src/Jobs.hs @@ -344,7 +344,7 @@ execCrontab = do -- when (newCrontab /= currentCrontab) $ -- mapRWST (liftIO . atomically) $ -- liftBase . flip writeTVar newCrontab =<< asks (jobCrontab . jobContext) - newCrontab <- atomically . readTVar =<< asks (jobCrontab . jobContext) + newCrontab <- liftIO . readTVarIO =<< asks (jobCrontab . jobContext) mergeState newState <- State.get