refactor: hlint

2020-08-03 14:16:03 +02:00 · 2020-08-03 14:16:03 +02:00 · a9cdfcc7e1
commit a9cdfcc7e1
parent 1be971677b
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Admin/Crontab.hs
+++ b/src/Handler/Admin/Crontab.hs
@ -16,7 +16,7 @@ getAdminCrontabR = do
    JobState{jobCurrentCrontab} <- MaybeT $ tryReadTMVar jState
    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
    setTitleI MsgMenuAdminCrontab