summaryrefslogtreecommitdiff
path: root/examples/simpleblog/hakyll.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/simpleblog/hakyll.hs')
-rw-r--r--examples/simpleblog/hakyll.hs8
1 files changed, 4 insertions, 4 deletions
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..."