From 7afabf5c098efc2f0df482ab66d9091d7aa3bd23 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 31 Jan 2010 11:19:57 +0100 Subject: Better naming scheme. --- examples/categoryblog/hakyll.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'examples/categoryblog') diff --git a/examples/categoryblog/hakyll.hs b/examples/categoryblog/hakyll.hs index e6d87ea..a5f3996 100644 --- a/examples/categoryblog/hakyll.hs +++ b/examples/categoryblog/hakyll.hs @@ -26,7 +26,7 @@ main = hakyll $ do renderPostList "posts.html" "All posts" renderablePosts -- Render post list per category - mapM_ (\(category, posts) -> renderPostList (categoryToURL category) ("Posts about " ++ category) posts) + mapM_ (\(category, posts) -> renderPostList (categoryToUrl category) ("Posts about " ++ category) posts) (toList categoryMap) -- Render index, including recent posts. @@ -51,12 +51,12 @@ main = hakyll $ do where postManipulation :: ContextManipulation postManipulation = renderDate "date" "%B %e, %Y" "Date unknown" - categoryToURL category = "$root/categories/" ++ removeSpaces category ++ ".html" + categoryToUrl category = "$root/categories/" ++ removeSpaces category ++ ".html" categoryList :: TagMap -> String categoryList = uncurry categoryListItem <=< toList - categoryListItem category posts = "
  • " ++ link category (categoryToURL category) + categoryListItem category posts = "
  • " ++ link category (categoryToUrl category) ++ " - " ++ show (length posts) ++ " items.
    • " renderPostList url title posts = do -- cgit v1.2.3