update to Hakyll 4.2
authorrekado <rekado@elephly.net>
Mon, 27 May 2013 09:55:56 +0000 (17:55 +0800)
committerrekado <rekado@elephly.net>
Mon, 27 May 2013 09:55:56 +0000 (17:55 +0800)
site.hs

diff --git a/site.hs b/site.hs
index 0f897bd5866d8b3030e4b5977884b5d11e12a2f2..a7fa086aa64aed6a3044bb5ecc98cc47e677a720 100644 (file)
--- a/site.hs
+++ b/site.hs
@@ -77,7 +77,7 @@ main = hakyllWith config $ do
     create ["index.html"] $ do
       route idRoute
       compile $ do
-        mostRecent <- (head . recentFirst) <$> loadAllSnapshots "posts/*.markdown" "non-relative"
+        mostRecent <- fmap head . recentFirst =<< loadAllSnapshots "posts/*.markdown" "non-relative"
         makeItem (itemBody mostRecent) >>= relativizeUrls
 
     match "templates/*" $ compile templateCompiler
@@ -119,9 +119,9 @@ licenseSnippet = field "license-snippet" $ \item -> do
 
 
 --------------------------------------------------------------------------------
-postList :: ([Item String] -> [Item String]) -> Compiler String
+postList :: ([Item String] -> Compiler [Item String]) -> Compiler String
 postList sortFilter = do
-  posts   <- sortFilter <$> loadAll ("posts/*.markdown" .&&. hasNoVersion)
+  posts   <- sortFilter =<< loadAll ("posts/*.markdown" .&&. hasNoVersion)
   itemTpl <- loadBody "templates/post-item.html"
   list    <- applyTemplateList itemTpl postCtx posts
   return list