Update example & tutorials with new recentFirst

2 files changed, 7 insertions, 6 deletions

diff --git a/web/site.hs b/web/site.hs
index 45e6519..8817d8c 100644
--- a/web/site.hs
+++ b/web/site.hs
@@ -4,8 +4,9 @@ import           Control.Applicative ((<$>))
 import           Control.Arrow       (second)
 import           Control.Monad       (forM_)
 import           Data.Char           (isDigit)
-import           Data.List           (isPrefixOf, partition)
+import           Data.List           (isPrefixOf, partition, sortBy)
 import           Data.Monoid         (mappend)
+import           Data.Ord            (comparing)
 import           Hakyll
 import           System.FilePath     (dropTrailingPathSeparator, splitPath)
 import           Text.Pandoc
@@ -55,7 +56,7 @@ main = hakyllWith config $ do
             tutorials <- loadAll "tutorials/*"
             itemTpl   <- loadBody "templates/tutorial-item.html"
             let (series, articles) = partitionTutorials $
-                    chronological tutorials
+                    sortBy (comparing itemIdentifier) tutorials
 
             series'   <- applyTemplateList itemTpl defaultContext series
             articles' <- applyTemplateList itemTpl defaultContext articles
diff --git a/web/tutorials/04-compilers.markdown b/web/tutorials/04-compilers.markdown
index 522f817..cdc8eb0 100644
--- a/web/tutorials/04-compilers.markdown
+++ b/web/tutorials/04-compilers.markdown
@@ -158,18 +158,18 @@ We can reproduce a list of items in the archive using the following code:
 
 ```haskell
 compile $ do
-    posts   <- recentFirst <$> loadAll "posts/*"
+    posts   <- recentFirst =<< loadAll "posts/*"
     itemTpl <- loadBody "templates/post-item.html"
     list    <- applyTemplateList itemTpl postCtx posts
     makeItem list
 ```
 
 `recentFirst` sorts items by date. This relies on the convention that posts are
-always named `YYYY-MM-DD-title.extension` in Hakyll -- if you use some other
-format, you'll have to write some other sorting method.
+always named `YYYY-MM-DD-title.extension` in Hakyll -- or that the date must be
+present in the metadata.
 
 ```haskell
-recentFirst :: [Item a] -> [Item a]
+recentFirst :: [Item a] -> Compiler [Item a]
 ```
 
 After loading and sorting the items, we load a template for the posts.