diff options
| -rw-r--r-- | src/Text/Hakyll/Tags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |