@@ -225,12 +225,12 @@ renderTagList = renderTags makeLink (intercalate ", ")
225225-- > "tags" (fromCapture "tags/*")
226226tagsFieldWith :: (Identifier -> Compiler [String]) -- ^ Get the tags
227227 -> String -- ^ Destination key
228− -> (String -> Identifier) -- ^ Create a link for a tag
228+ -> Tags -- ^ Tags structure
229229 -> Context a -- ^ Resulting context
230−tagsFieldWith getTags' key makeTagId = field key $ \item -> do
231− tags <- getTags' $ itemIdentifier item
232− links <- forM tags $ \tag -> do
233− route' <- getRoute $ makeTagId tag
230+tagsFieldWith getTags' key tags = field key $ \item -> do
231+ tags' <- getTags' $ itemIdentifier item
232+ links <- forM tags' $ \tag -> do
233+ route' <- getRoute $ tagsMakeId tags tag
234234 return $ renderLink tag route'
235235
236236 return $ renderHtml $ mconcat $ intersperse ", " $ catMaybes $ links
@@ -243,17 +243,17 @@ tagsFieldWith getTags' key makeTagId = field key $ \item -> do
243243
244244--------------------------------------------------------------------------------
245245-- | Render tags with links
246−tagsField :: String -- ^ Destination key
247− -> (String -> Identifier) -- ^ Create a link for a tag
248− -> Context a -- ^ Context
246+tagsField :: String -- ^ Destination key
247+ -> Tags -- ^ Tags
248+ -> Context a -- ^ Context
249249tagsField = tagsFieldWith getTags
250250
251251
252252--------------------------------------------------------------------------------
253253-- | Render the category in a link
254−categoryField :: String -- ^ Destination key
255− -> (String -> Identifier) -- ^ Create a category link
256− -> Context a -- ^ Context
254+categoryField :: String -- ^ Destination key
255+ -> Tags -- ^ Tags
256+ -> Context a -- ^ Context
257257categoryField = tagsFieldWith getCategory
258258
259259