From 7361faab7370149d5862695c83452cf96df21646 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Mon, 1 Apr 2019 18:03:09 +0200
Subject: [PATCH] Limit the number of posts on the front page

---
 site.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/site.hs b/site.hs
index 6d42cb8..dffd888 100644
--- a/site.hs
+++ b/site.hs
@@ -81,7 +81,7 @@ main = hakyll $ do
   match "index.html" $ do
     route idRoute
     compile $ do
-      posts <- recentFirst =<< loadAll "posts/*"
+      posts <- fmap (take 10) $ recentFirst =<< loadAll "posts/*"
       let indexCtx =
             listField "posts" postCtx (return posts) `mappend`
             defaultContext