From 7128cc9b5f77eb40bfb0b04d74ddfe2e10a171fe Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 29 Jan 2010 12:19:53 +0100 Subject: Updated simpleblog, rssblog and tagblog examples to trunk. --- examples/simpleblog/hakyll.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples/simpleblog') diff --git a/examples/simpleblog/hakyll.hs b/examples/simpleblog/hakyll.hs index 8b53215..638861a 100644 --- a/examples/simpleblog/hakyll.hs +++ b/examples/simpleblog/hakyll.hs @@ -19,12 +19,12 @@ main = hakyll $ do let renderablePosts = map createPagePath postPaths -- Render index, including recent posts. - renderChain ["index.html", "templates/default.html"] $ - createListing "index.html" "templates/postitem.html" (take 3 renderablePosts) [("title", "Home")] + let index = createListing "index.html" "templates/postitem.html" (take 3 renderablePosts) [("title", "Home")] + renderChain ["index.html", "templates/default.html"] index -- Render all posts list. - renderChain ["posts.html", "templates/default.html"] $ - createListing "posts.html" "templates/postitem.html" renderablePosts [("title", "All posts")] + let posts = createListing "posts.html" "templates/postitem.html" renderablePosts [("title", "All posts")] + renderChain ["posts.html", "templates/default.html"] posts -- Render all posts. liftIO $ putStrLn "Generating posts..." -- cgit v1.2.3