From cbb084f5d9d334627d75d10436c07dd6cb47ca50 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 11 Apr 2023 18:54:34 +0300
Subject: [PATCH] chunk-calculation-fix

---
 hbs2-core/lib/HBS2/Storage.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hbs2-core/lib/HBS2/Storage.hs b/hbs2-core/lib/HBS2/Storage.hs
index e4d1e117..1a4f507d 100644
--- a/hbs2-core/lib/HBS2/Storage.hs
+++ b/hbs2-core/lib/HBS2/Storage.hs
@@ -60,7 +60,8 @@ calcChunks :: forall a b . (Integral a, Integral b)
 
 calcChunks s1 s2 = fmap (over _1 fromIntegral . over _2 fromIntegral)  chu
   where
-    chu = fmap (,s2) (takeWhile (<s1) $ iterate (+s2) 0)
+    (n,rest) = s1 `divMod` s2
+    chu = [ (x*s2,s2) | x <- [0..n-1] ] <> [(n * s2, rest) | rest > 0]