diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-08 12:41:58 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-08 12:41:58 +0100 |
| commit | 699bd0011e9771cd5c03c65aec0ec79656c475a1 (patch) | |
| tree | 8b2840edb78336d0de293744bc79bb96a14be29b /src/Text/Hakyll/Tags.hs | |
| parent | b403d35b087683a7a38e57b943c63449613b3115 (diff) | |
| download | hakyll-699bd0011e9771cd5c03c65aec0ec79656c475a1.tar.gz | |
Added tagblog example (tutorial coming up).
Diffstat (limited to 'src/Text/Hakyll/Tags.hs')
| -rw-r--r-- | src/Text/Hakyll/Tags.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Tags.hs b/src/Text/Hakyll/Tags.hs index c64d566..ea9ee87 100644 --- a/src/Text/Hakyll/Tags.hs +++ b/src/Text/Hakyll/Tags.hs @@ -56,5 +56,6 @@ renderTagCloud tagMap urlFunction minSize maxSize = renderTagLinks :: (String -> String) -- ^ Function that produces an url for a tag. -> ContextManipulation renderTagLinks urlFunction = renderValue "tags" "tags" renderTagLinks' - where renderTagLinks' = B.pack . intercalate ", " . map urlFunction + where renderTagLinks' = B.pack . intercalate ", " + . map (\t -> link t $ urlFunction t) . map trim . split "," . B.unpack |