From 781138a0e79a942b9835b159293f2b4088e98ac1 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sun, 6 Feb 2011 22:27:11 +0100
Subject: Backport sargon's fix (6d8154)

---
 src/Hakyll/Web/Tags.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Hakyll')

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)
-- 
cgit v1.2.3