From 189e8e09e65ec243f89c3aa0e1b8056ea8c24ae4 Mon Sep 17 00:00:00 2001
From: Pagwin <pgp2024@pagwin.xyz>
Date: Wed, 18 Dec 2024 01:09:07 -0500
Subject: [PATCH] have home have a full list of posts

---
 app/Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 462f9ca..b4bb996 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -158,9 +158,7 @@ home :: Rules ()
 home =
   outputDir </> "index.html" %> \target -> do
     postPaths <- getPublishedPosts
-    posts <-
-      take 3
-        . sortOn (Ord.Down . postDate)
+    posts <- sortOn (Ord.Down . postDate)
         <$> forM postPaths readPost
     let posts' = map fromPost posts
     html <- applyTemplate "home.html" $ HM.singleton "posts" posts'