@@ -47,6 +47,7 @@ module Hakyll.Web.Tags
4747 , buildTags
4848 , buildCategories
4949 , tagsRules
50+ , renderTags
5051 , renderTagCloud
5152 , renderTagList
5253 , tagsField
@@ -149,7 +150,7 @@ tagsRules tags rules =
149150
150151
151152--------------------------------------------------------------------------------
152−-- | Render tags in HTML
153+-- | Render tags in HTML (the flexible higher-order function)
153154renderTags :: (String -> String -> Int -> Int -> Int -> String)
154155 -- ^ Produce a tag item: tag, url, count, min count, max count
155156 -> ([String] -> String)
@@ -218,13 +219,9 @@ renderTagList = renderTags makeLink (intercalate ", ")
218219
219220
220221--------------------------------------------------------------------------------
221−-- | Render tags with links with custom function to get tags. It is typically
222−-- together with 'getTags' like this:
223−--
224−-- > renderTagsFieldWith (customFunction . getTags)
225−-- > "tags" (fromCapture "tags/*")
222+-- | Render tags with links with custom function to get tags
226223tagsFieldWith :: (Identifier -> Compiler [String]) -- ^ Get the tags
227− -> String -- ^ Destination key
224+ -> String -- ^ Destination field
228225 -> Tags -- ^ Tags structure
229226 -> Context a -- ^ Resulting context
230227tagsFieldWith getTags' key tags = field key $ \item -> do