fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-12-10 02:08:24 +01:00
parent 33567c5560
commit 447df0bc9b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Jobs.hs
View File

@ -344,7 +344,7 @@ execCrontab = do
-- when (newCrontab /= currentCrontab) $ -- when (newCrontab /= currentCrontab) $
-- mapRWST (liftIO . atomically) $ -- mapRWST (liftIO . atomically) $
-- liftBase . flip writeTVar newCrontab =<< asks (jobCrontab . jobContext) -- liftBase . flip writeTVar newCrontab =<< asks (jobCrontab . jobContext)
newCrontab <- atomically . readTVar =<< asks (jobCrontab . jobContext) newCrontab <- liftIO . readTVarIO =<< asks (jobCrontab . jobContext)
mergeState mergeState
newState <- State.get newState <- State.get