From 7ae56f7d4b15fa3ea1f48ca2c79f1064bddc6af5 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 5 Mar 2010 19:02:49 +0100 Subject: Fixed bug with tag rendering. --- src/Text/Hakyll/Tags.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Hakyll/Tags.hs b/src/Text/Hakyll/Tags.hs index a8f1db6..3d43abc 100644 --- a/src/Text/Hakyll/Tags.hs +++ b/src/Text/Hakyll/Tags.hs @@ -110,7 +110,7 @@ readCategoryMap = readMap $ maybeToList . M.lookup "category" withTagMap :: RenderAction () TagMap -> (String -> [Renderable] -> Hakyll ()) -> Hakyll () -withTagMap tagMap function = runRenderActionIfNeeded (tagMap >>> action) +withTagMap tagMap function = runRenderAction (tagMap >>> action) where action = createRenderAction (mapM_ (uncurry function) . M.toList) -- cgit v1.2.3