diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-24 15:30:51 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-03-24 15:30:51 +0100 |
| commit | 159b03cefe4177e756c8fe9e117acf5d4e294414 (patch) | |
| tree | 8554a1abbf7787139290433af2433801a4460292 /examples/tagblog | |
| parent | 4e6ab05b7803833d07e502797ad28c908f7d14d2 (diff) | |
| download | hakyll-159b03cefe4177e756c8fe9e117acf5d4e294414.tar.gz | |
Added sixth tutorial part.
Diffstat (limited to 'examples/tagblog')
| -rw-r--r-- | examples/tagblog/hakyll.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/tagblog/hakyll.hs b/examples/tagblog/hakyll.hs index 515d0d2..4c6b89c 100644 --- a/examples/tagblog/hakyll.hs +++ b/examples/tagblog/hakyll.hs @@ -28,8 +28,9 @@ main = hakyll "http://example.com" $ do renderPostList "posts.html" "All posts" renderablePosts -- Render post list per tag - withTagMap tagMap $ \tag posts -> - renderPostList (tagToUrl tag) ("Posts tagged " ++ tag) (map (>>> postManipulation) posts) + let renderListForTag tag posts = renderPostList (tagToUrl tag) ("Posts tagged " ++ tag) + (map (>>> postManipulation) posts) + withTagMap tagMap renderPostList -- Render index, including recent posts. let tagCloud = tagMap >>> renderTagCloud tagToUrl 100 200 |