fixed-zero-chunk-size-in-binary-vector

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs
index 7264528..4f25b6f 100644
--- a/lib/Data/Packed/Vector.hs
+++ b/lib/Data/Packed/Vector.hs
@@ -43,7 +43,8 @@ chunk = 5000
 
 chunks :: Int -> [Int]
 chunks d = let c = d `div` chunk
-           in ((d-c*chunk):(replicate c chunk))
+               m = d `mod` chunk
+           in if m /= 0 then reverse (m:(replicate c chunk)) else (replicate c chunk)  
 
 putVector v = do
               let d = dim v