diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-12 03:48:39 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-12 03:48:39 +0200 |
| commit | eb3dd6c642002f5f61248df279c62423c3fc384f (patch) | |
| tree | eb1b13b4c064f9f25c3c6483e3a2c2ee32b97d98 /src | |
| parent | 5bbbfca0913d7d432b42a2b631a5eb6e340b8d94 (diff) | |
| download | hakyll-eb3dd6c642002f5f61248df279c62423c3fc384f.tar.gz | |
Small consistency changes
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Web/Tags.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |