From 447df0bc9bca3f16239c16ccd8a50a27d53240db Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 10 Dec 2020 02:08:24 +0100
Subject: [PATCH] refactor: hlint

---
 src/Jobs.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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