summaryrefslogtreecommitdiff
path: root/web
diff options
context:
space:
mode:
Diffstat (limited to 'web')
-rw-r--r--web/tutorials/05-snapshots-feeds.markdown5
1 files changed, 3 insertions, 2 deletions
diff --git a/web/tutorials/05-snapshots-feeds.markdown b/web/tutorials/05-snapshots-feeds.markdown
index 230a703..a8c06c6 100644
--- a/web/tutorials/05-snapshots-feeds.markdown
+++ b/web/tutorials/05-snapshots-feeds.markdown
@@ -51,7 +51,7 @@ create ["atom.xml"] $ do
let feedCtx = postCtx `mappend`
constField "description" "This is the post description"
- posts <- take 10 . recentFirst <$> loadAll "posts/*"
+ posts <- fmap (take 10) . recentFirst =<< loadAll "posts/*"
renderAtom myFeedConfiguration feedCtx posts
```
@@ -122,6 +122,7 @@ create ["atom.xml"] $ do
route idRoute
compile $ do
let feedCtx = postCtx `mappend` bodyField "description"
- posts <- take 10 . recentFirst <$> loadAllSnapshots "posts/*" "content"
+ posts <- fmap (take 10) . recentFirst =<<
+ loadAllSnapshots "posts/*" "content"
renderAtom myFeedConfiguration feedCtx posts
```