@@ -225,12 +225,12 @@ renderTagList = renderTags makeLink (intercalate ", ")
225-- > "tags" (fromCapture "tags/*")
225-- > "tags" (fromCapture "tags/*")
226tagsFieldWith :: (Identifier -> Compiler [String]) -- ^ Get the tags
226tagsFieldWith :: (Identifier -> Compiler [String]) -- ^ Get the tags
227 -> String -- ^ Destination key
227 -> String -- ^ Destination key
228− -> (String -> Identifier) -- ^ Create a link for a tag
228+ -> Tags -- ^ Tags structure
229 -> Context a -- ^ Resulting context
229 -> Context a -- ^ Resulting context
230−tagsFieldWith getTags' key makeTagId = field key $ \item -> do
230+tagsFieldWith getTags' key tags = field key $ \item -> do
231− tags <- getTags' $ itemIdentifier item
231+ tags' <- getTags' $ itemIdentifier item
232− links <- forM tags $ \tag -> do
232+ links <- forM tags' $ \tag -> do
233− route' <- getRoute $ makeTagId tag
233+ route' <- getRoute $ tagsMakeId tags tag
234 return $ renderLink tag route'
234 return $ renderLink tag route'
236 return $ renderHtml $ mconcat $ intersperse ", " $ catMaybes $ links
236 return $ renderHtml $ mconcat $ intersperse ", " $ catMaybes $ links
@@ -243,17 +243,17 @@ tagsFieldWith getTags' key makeTagId = field key $ \item -> do
244--------------------------------------------------------------------------------
244--------------------------------------------------------------------------------
245-- | Render tags with links
245-- | Render tags with links
246−tagsField :: String -- ^ Destination key
246+tagsField :: String -- ^ Destination key
247− -> (String -> Identifier) -- ^ Create a link for a tag
247+ -> Tags -- ^ Tags
248− -> Context a -- ^ Context
248+ -> Context a -- ^ Context
249tagsField = tagsFieldWith getTags
249tagsField = tagsFieldWith getTags
252--------------------------------------------------------------------------------
252--------------------------------------------------------------------------------
253-- | Render the category in a link
253-- | Render the category in a link
254−categoryField :: String -- ^ Destination key
254+categoryField :: String -- ^ Destination key
255− -> (String -> Identifier) -- ^ Create a category link
255+ -> Tags -- ^ Tags
256− -> Context a -- ^ Context
256+ -> Context a -- ^ Context
257categoryField = tagsFieldWith getCategory
257categoryField = tagsFieldWith getCategory