fraport/fradrive-old
Archived
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-08-03 14:16:03 +02:00
parent 1be971677b
commit a9cdfcc7e1
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/Handler/Admin/Crontab.hs
View File

@ -16,7 +16,7 @@ getAdminCrontabR = do
JobState{jobCurrentCrontab} <- MaybeT $ tryReadTMVar jState JobState{jobCurrentCrontab} <- MaybeT $ tryReadTMVar jState
MaybeT $ readTVar jobCurrentCrontab MaybeT $ readTVar jobCurrentCrontab
let mCrontab = mCrontab' & mapped . _2 %~ filter (hasn't $ _1 . _MatchNone) let mCrontab = mCrontab' <&> _2 %~ filter (hasn't $ _1 . _MatchNone)
siteLayoutMsg MsgMenuAdminCrontab $ do siteLayoutMsg MsgMenuAdminCrontab $ do
setTitleI MsgMenuAdminCrontab setTitleI MsgMenuAdminCrontab