From 998db08a7f0f3464515fe0328d22fb91ffd9dc11 Mon Sep 17 00:00:00 2001
From: Mekeor Melire <mekeor@ymail.com>
Date: Thu, 9 Aug 2012 00:51:46 +0200
Subject: I made Hakyll.Web.Tags export both 'getTags' and
 'renderTagsFieldWith' in order to be able to customize how tags are
 read/parsed/rendered &c.

---
 src/Hakyll/Web/Tags.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/Hakyll')

diff --git a/src/Hakyll/Web/Tags.hs b/src/Hakyll/Web/Tags.hs
index 62f3899..31b945f 100644
--- a/src/Hakyll/Web/Tags.hs
+++ b/src/Hakyll/Web/Tags.hs
@@ -28,12 +28,14 @@
 {-# LANGUAGE DeriveDataTypeable, OverloadedStrings, Arrows #-}
 module Hakyll.Web.Tags
     ( Tags (..)
+    , getTags
     , readTagsWith
     , readTags
     , readCategory
     , renderTagCloud
     , renderTagList
     , renderTagsField
+    , renderTagsFieldWith
     , renderCategoryField
     , sortTagsBy
     , caseInsensitiveTags
@@ -176,7 +178,12 @@ renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ")
     makeLink tag url count _ _ = renderHtml $
         H.a ! A.href (toValue url) $ toHtml (tag ++ " (" ++ show count ++ ")")
 
--- | Render tags with links
+-- | Render tags with links with custom function to get tags. It is typically
+-- together with 'getTags' like this:
+-- 
+-- @
+-- 'renderTagsFieldWith' (customFunction . 'getTags') \"tags\" ('fromCapture' \"tags/*\")
+-- @
 --
 renderTagsFieldWith :: (Page a -> [String])        -- ^ Function to get the tags
                     -> String                      -- ^ Destination key
-- 
cgit v1.2.3