Backport sargon's fix (6d8154)
commit781138a0e79a942b9835b159293f2b4088e98ac1
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateSun 6 Feb 2011, 22:27 (16 years ago)
parentbd261e9
src/Hakyll/Web/Tags.hs+1−1
@@ -116,7 +116,7 @@ renderTagCloud urlFunction minSize maxSize (Tags tags) = renderHtml $
116116 in show (size' :: Int) ++ "%"
117117
118118 -- Find out the relative count of a tag: on a scale from 0 to 1
119− relative count = (fromIntegral count - minCount) / (maxCount - minCount)
119+ relative count = (fromIntegral count - minCount) / (1 + maxCount - minCount)
120120
121121 -- The minimum and maximum count found, as doubles
122122 (minCount, maxCount)