Migrated examples to be up-to-date with master.

1 files changed, 7 insertions, 6 deletions

diff --git a/examples/rssblog/hakyll.hs b/examples/rssblog/hakyll.hs
index a0984c8..581da9e 100644
--- a/examples/rssblog/hakyll.hs
+++ b/examples/rssblog/hakyll.hs
@@ -1,6 +1,7 @@
 module Main where
 
-import Text.Hakyll (hakyll)
+import Control.Monad.Reader (liftIO)
+import Text.Hakyll (hakyll, defaultHakyllConfiguration)
 import Text.Hakyll.Render (renderAndConcat, renderChain, css)
 import Text.Hakyll.File (getRecursiveContents, directory)
 import Text.Hakyll.Renderables (createPagePath, createCustomPage)
@@ -8,7 +9,7 @@ import Data.List (sort)
 import Control.Monad (mapM_, liftM)
 import Data.Either (Either(..))
 
-main = hakyll $ do
+main = hakyll defaultHakyllConfiguration $ do
     -- Static directory.
     directory css "css"
 
@@ -17,23 +18,23 @@ main = hakyll $ do
     let renderablePosts = map createPagePath postPaths
 
     -- Render index, including recent posts.
-    let recentPosts = renderAndConcat "templates/postitem.html" $ take 3 renderablePosts
+    let recentPosts = renderAndConcat ["templates/postitem.html"] $ take 3 renderablePosts
     renderChain ["index.html", "templates/default.html"] $
         createCustomPage "index.html" ("templates/postitem.html" : take 3 postPaths)
             [("title", Left "Home"), ("posts", Right recentPosts)]
 
     -- Render all posts list.
-    let postItems = renderAndConcat "templates/postitem.html" $ renderablePosts
+    let postItems = renderAndConcat ["templates/postitem.html"] $ renderablePosts
     renderChain ["posts.html", "templates/default.html"] $
         createCustomPage "posts.html" ("templates/postitem.html" : postPaths)
         [("title", Left "All posts"), ("posts", Right postItems)]
 
     -- Render all posts.
-    putStrLn "Generating posts..."
+    liftIO $ putStrLn "Generating posts..."
     mapM_ (renderChain ["templates/post.html", "templates/default.html"]) renderablePosts
 
     -- Render rss feed
-    let recentRSSItems = renderAndConcat "templates/rssitem.xml" $ take 3 renderablePosts
+    let recentRSSItems = renderAndConcat ["templates/rssitem.xml"] $ take 3 renderablePosts
     let rssPage = createCustomPage "rss.xml"
                         ("templates/postitem.html" : take 3 postPaths)
                         [("items", Right recentRSSItems)]