From 35e55b0e434f86a43a55fa262e393a29f631057a Mon Sep 17 00:00:00 2001
From: Pagwin <dev@pagwin.xyz>
Date: Thu, 11 Dec 2025 15:52:46 -0500
Subject: [PATCH] forM -> traverse

---
 src/Psb/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Psb/Main.hs b/src/Psb/Main.hs
index 0ae7d05..62f3cab 100644
--- a/src/Psb/Main.hs
+++ b/src/Psb/Main.hs
@@ -8,11 +8,12 @@
 module Psb.Main where
 
 import Config
-import Control.Monad (forM, when)
+import Control.Monad (when)
 import qualified Data.HashMap.Strict as HM
 import Data.List (sortOn)
 import qualified Data.Ord as Ord
 import qualified Data.Text as T
+import Data.Traversable (traverse)
 import Deriving.Aeson
 import Deriving.Aeson.Stock (Vanilla)
 import Development.Shake (Action, Rules, (%>), (|%>), (~>))
@@ -121,7 +122,7 @@ home =
     postPaths <- getPublishedPosts isDraft
     posts <-
       sortOn (Ord.Down . postDate)
-        <$> forM postPaths readPost
+        <$> traverse readPost postPaths
     let posts' = map fromPost posts
     html <- applyTemplate "home.html" $ HM.singleton "posts" posts'
     time <- Utilities.Action.now