From ab3ce4a60e64afb612dd3cce56d8b99e07d4e7cc Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 25 Jan 2020 14:53:20 -0300
Subject: Main.hs: Don't limit Atom and RSS feeds to 10 items

---
 hakyll/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'hakyll')

diff --git a/hakyll/Main.hs b/hakyll/Main.hs
index 90e6b0b..d84cf40 100644
--- a/hakyll/Main.hs
+++ b/hakyll/Main.hs
@@ -80,7 +80,7 @@ main = hakyll $ do
     route idRoute
     compile $ do
       loadAllSnapshots "posts/*" "content"
-        >>= fmap (take 10) . recentFirst
+        >>= recentFirst
         >>= renderAtom feedConfiguration feedCtx
 
   create ["rss.xml"] $ do
@@ -89,7 +89,7 @@ main = hakyll $ do
         let feedCtx = postCtx `mappend`
                 constField "description" "This is the post description"
 
-        posts <- fmap (take 10) . recentFirst =<< loadAll "posts/*"
+        posts <- recentFirst =<< loadAll "posts/*"
         renderRss feedConfiguration feedCtx posts
 
   match "templates/*" $ compile templateBodyCompiler
-- 
cgit v1.2.3