diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-24 10:50:38 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-24 10:55:11 +0100 |
commit | b91c8be54b14a84aa47b5033a9966653df7f84ca (patch) | |
tree | 795341847c1554b578604dca3be361dd47529318 /web/site.hs | |
parent | 9b603587de20d42d95e6affc2bce85447de6f58e (diff) | |
download | hakyll-b91c8be54b14a84aa47b5033a9966653df7f84ca.tar.gz |
Update example & tutorials with new recentFirst
Diffstat (limited to 'web/site.hs')
-rw-r--r-- | web/site.hs | 5 |
1 files changed, 3 insertions, 2 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 |