s3: Fix chunkFilesBySize function

The property test was failing occasionally and wasn't caught
before now.

Author: erikd-ambiata

mismi-s3/src/Mismi/S3/Commands.hs

@@ -515,7 +515,7 @@ chunkFilesBySize maxCount maxSize =
     takeFiles current acc ((x, s):xs) =
       if current + s < maxSize && L.length acc < maxCount
         then takeFiles (current + s) ((x, s):acc) xs
-        else ((x, s):acc) : takeFiles 0 [] xs
+        else acc : takeFiles s [(x, s)] xs
 
 -- | Like `listRecursively` but for the local filesystem.
 -- Also returns