refactor: hlint

2020-12-10 02:08:24 +01:00 · 2020-12-10 02:08:24 +01:00 · 447df0bc9b
commit 447df0bc9b
parent 33567c5560
1 changed files with 1 additions and 1 deletions
--- 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