Update src/Data/Primitive/Contiguous/Shim.hs

Co-authored-by: Dave Barton <[email protected]>
byteverse · May 7, 2024 · 3e43cce · 3e43cce
1 parent a8b1607
commit 3e43cce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Primitive/Contiguous/Shim.hs b/src/Data/Primitive/Contiguous/Shim.hs
@@ -27,7 +27,7 @@ resizeArray !src !sz = do
     LT -> cloneMutableArray src 0 sz
     GT -> do
       dst <- newArray sz errorThunk
-      copyMutableArray dst 0 src 0 sz
+      copyMutableArray dst 0 src 0 srcSz
       pure dst
 {-# INLINE resizeArray #-}