diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-31 11:19:57 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-31 11:19:57 +0100 |
| commit | 7afabf5c098efc2f0df482ab66d9091d7aa3bd23 (patch) | |
| tree | a96a60459fa2d8fce6591d56d437d9da13c2b6fd /examples/tagblog | |
| parent | 73d6b1d6614c3965afd96b710bfa79db94d2449e (diff) | |
| download | hakyll-7afabf5c098efc2f0df482ab66d9091d7aa3bd23.tar.gz | |
Better naming scheme.
Diffstat (limited to 'examples/tagblog')
| -rw-r--r-- | examples/tagblog/hakyll.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/tagblog/hakyll.hs b/examples/tagblog/hakyll.hs index c51007f..c2f16cf 100644 --- a/examples/tagblog/hakyll.hs +++ b/examples/tagblog/hakyll.hs @@ -26,11 +26,11 @@ main = hakyll $ do renderPostList "posts.html" "All posts" renderablePosts -- Render post list per tag - mapM_ (\(tag, posts) -> renderPostList (tagToURL tag) ("Posts tagged " ++ tag) posts) + mapM_ (\(tag, posts) -> renderPostList (tagToUrl tag) ("Posts tagged " ++ tag) posts) (toList tagMap) -- Render index, including recent posts. - let tagCloud = renderTagCloud tagMap tagToURL 100 200 + let tagCloud = renderTagCloud tagMap tagToUrl 100 200 index = createListingWith postManipulation "index.html" "templates/postitem.html" (take 3 renderablePosts) @@ -51,9 +51,9 @@ main = hakyll $ do where postManipulation :: ContextManipulation postManipulation = renderDate "date" "%B %e, %Y" "Date unknown" - . renderTagLinks tagToURL + . renderTagLinks tagToUrl - tagToURL tag = "$root/tags/" ++ removeSpaces tag ++ ".html" + tagToUrl tag = "$root/tags/" ++ removeSpaces tag ++ ".html" renderPostList url title posts = do let list = createListingWith postManipulation url "templates/postitem.html" posts [("title", title)] |