diff options
| author | EuAndreh <eu@euandre.org> | 2020-01-25 14:53:20 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2020-01-25 14:53:20 -0300 |
| commit | ab3ce4a60e64afb612dd3cce56d8b99e07d4e7cc (patch) | |
| tree | a82b1e3a09ccc5905f0c61e8e44e32db82604f77 /hakyll/Main.hs | |
| parent | Fix copied public-inbox mailing list address (diff) | |
| download | euandre.org-ab3ce4a60e64afb612dd3cce56d8b99e07d4e7cc.tar.gz euandre.org-ab3ce4a60e64afb612dd3cce56d8b99e07d4e7cc.tar.xz | |
Main.hs: Don't limit Atom and RSS feeds to 10 items
Diffstat (limited to 'hakyll/Main.hs')
| -rw-r--r-- | hakyll/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |