diff options
| -rw-r--r-- | src/Text/Hakyll/Tags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Tags.hs b/src/Text/Hakyll/Tags.hs index a4559ca..d427aa5 100644 --- a/src/Text/Hakyll/Tags.hs +++ b/src/Text/Hakyll/Tags.hs @@ -149,7 +149,7 @@ renderTagCloud urlFunction minSize maxSize = createHakyllAction renderTagCloud' minCount = minimum . map snd . tagCount maxCount = maximum . map snd . tagCount relative tagMap count = (count - minCount tagMap) / - (maxCount tagMap - minCount tagMap) + (1 + maxCount tagMap - minCount tagMap) tagCount = map (second $ fromIntegral . length) . M.toList |