diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-06 22:27:11 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-06 22:27:11 +0100 |
| commit | 781138a0e79a942b9835b159293f2b4088e98ac1 (patch) | |
| tree | 9f1d424c6db206df4232ca348040ec817a8cdf2f | |
| parent | bd261e91511ab7cfdc60310a9150496d75465e91 (diff) | |
| download | hakyll-781138a0e79a942b9835b159293f2b4088e98ac1.tar.gz | |
Backport sargon's fix (6d8154)
| -rw-r--r-- | src/Hakyll/Web/Tags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Tags.hs b/src/Hakyll/Web/Tags.hs index 62a99fc..9c3d114 100644 --- a/src/Hakyll/Web/Tags.hs +++ b/src/Hakyll/Web/Tags.hs @@ -116,7 +116,7 @@ renderTagCloud urlFunction minSize maxSize (Tags tags) = renderHtml $ in show (size' :: Int) ++ "%" -- Find out the relative count of a tag: on a scale from 0 to 1 - relative count = (fromIntegral count - minCount) / (maxCount - minCount) + relative count = (fromIntegral count - minCount) / (1 + maxCount - minCount) -- The minimum and maximum count found, as doubles (minCount, maxCount) |