From eb3dd6c642002f5f61248df279c62423c3fc384f Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 12 Aug 2012 03:48:39 +0200 Subject: Small consistency changes --- src/Hakyll/Web/Tags.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Hakyll') diff --git a/src/Hakyll/Web/Tags.hs b/src/Hakyll/Web/Tags.hs index 31b945f..42612a7 100644 --- a/src/Hakyll/Web/Tags.hs +++ b/src/Hakyll/Web/Tags.hs @@ -80,7 +80,8 @@ instance Binary a => Binary (Tags a) where instance Writable (Tags a) where write _ _ = return () --- | Obtain tags from a page +-- | Obtain tags from a page in the default way: parse them from the @tags@ +-- metadata field. -- getTags :: Page a -> [String] getTags = map trim . splitAll "," . getField "tags" @@ -181,9 +182,8 @@ renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ") -- | 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 (customFunction . getTags) +-- > "tags" (fromCapture "tags/*") -- renderTagsFieldWith :: (Page a -> [String]) -- ^ Function to get the tags -> String -- ^ Destination key -- cgit v1.2.3