From c96f8f6c820d43a55388f0307f3a6de9471ebb10 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Mon, 30 May 2022 16:22:44 +1000
Subject: linting

---
 src/F2Md/Config.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/F2Md/Config.hs')

diff --git a/src/F2Md/Config.hs b/src/F2Md/Config.hs
index 33380fa..c952d09 100644
--- a/src/F2Md/Config.hs
+++ b/src/F2Md/Config.hs
@@ -78,10 +78,10 @@ updateLastUpdated' path feed msgs =
     HM.insert
     (fuUrl feed)
     (utcToZonedTime (zonedTimeZone $ mDate $ head msgs) . maximum $
-                    (zonedTimeToUTC . mDate) <$> msgs)
+                    zonedTimeToUTC . mDate <$> msgs)
     decoded
 
 updateLastUpdated :: FilePath -> [FeedUserdata] -> [[Message]] -> IO ()
 updateLastUpdated path feeds feedMsgs = do
-  mapM_ (\(feed, msgs) -> updateLastUpdated' path feed msgs)
+  mapM_ (uncurry (updateLastUpdated' path))
     (zip feeds feedMsgs)
-- 
cgit v1.2.3