Use do notation, to match the theme

dtekcth · Oct 10, 2024 · bd4a389 · bd4a389
1 parent ca0a56b
commit bd4a389
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/src/Model.hs b/src/Model.hs
@@ -95,16 +95,17 @@ removeOldLogs :: ( MonadIO m
                  , MonadLog (WithTimestamp (Doc ann)) m
                  , MonadReader Config m
                  ) => m ()
-removeOldLogs =
-  liftIO getCurrentTime >>= \now ->
-  asks _cLogAge >>= \offset ->
-  asks _cLogPath >>= \path ->
-  liftIO (listDirectory path) >>=
-  mapM (\s -> liftIO (getAccessTime s) <&> (s,)) . fmap ((path ++ "/") ++) >>=
-  fmap (fmap fst) . filterM (pure . (<= (now & _utctDay %~ (.-^ offset))) . toThyme . snd) >>= \files ->
+removeOldLogs = do
+  now <- liftIO getCurrentTime
+  offset <- asks _cLogAge
+  path <- asks _cLogPath
+  files <- liftIO (listDirectory path) >>=
+    mapM (\s -> liftIO (getAccessTime s) <&> (s,)) . fmap ((path ++ "/") ++) >>=
+    filterM (pure . (<= (now & _utctDay %~ (.-^ offset))) . toThyme . snd) <&>
+    fmap fst
   timestamp ("Removing the following files:" <+> prettyList files) >>=
-  logMessage >>
-  liftIO (mapM_ removeFile files)
+    logMessage >>
+    liftIO (mapM_ removeFile files)
 
 update
   :: ( MonadIO m