Update recentFirst usage in tutorial 5

Closes #120

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
 ```