summaryrefslogtreecommitdiff
path: root/examples/simpleblog
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-29 12:19:53 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-29 12:19:53 +0100
commit7128cc9b5f77eb40bfb0b04d74ddfe2e10a171fe (patch)
tree7abe96cb7a32d0633eb2024114c750b58c88e8b9 /examples/simpleblog
parentd205f96825d73e0ad7efc97a321333dacfbf9e0c (diff)
downloadhakyll-7128cc9b5f77eb40bfb0b04d74ddfe2e10a171fe.tar.gz
Updated simpleblog, rssblog and tagblog examples to trunk.
Diffstat (limited to 'examples/simpleblog')
-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..."