From b6e4a09f1b60e80fe065fd21621902113a1bc9ea Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 14 Sep 2016 20:44:58 -0400
Subject: rejigger to avoid division underflow

---
 HTTP/RateLimit.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'HTTP')

diff --git a/HTTP/RateLimit.hs b/HTTP/RateLimit.hs
index 3a17a5a..591c918 100644
--- a/HTTP/RateLimit.hs
+++ b/HTTP/RateLimit.hs
@@ -399,7 +399,7 @@ checkRequestRate cfg storedir ratelimiter logger intervalsecs = do
 	let storesize = maximum knownObjectSizes
 	n <- liftIO $ atomically $ swapTMVar (requestCounter ratelimiter) 0
 	let maxstoredinterval = n * fromIntegral storesize
-	let maxstoredthismonth = maxstoredinterval * (intervalsecs `div` (60*60)) * 24 * 31
+	let maxstoredthismonth = maxstoredinterval * (intervalsecs * 24*31 `div` (60*60))
 	freespace <- diskFree <$> localDiskUsage storedir
 	let target = monthsToFillHalfDisk cfg
 	let estimate = if maxstoredthismonth <= 0 
-- 
cgit v1.2.3