Limit the number of posts on the front page

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