mapAccumL and mapAccumR are non-decreasing

haskell · Feb 10, 2023 · 4187a35 · 4187a35
1 parent f51caa3
commit 4187a35
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Data/Text.hs b/src/Data/Text.hs
@@ -1177,7 +1177,7 @@ mapAccumL f z0 = go
               | srcOff >= l + o = do
                 A.shrinkM dst dstOff
                 arr <- A.unsafeFreeze dst
-                return (z, text arr 0 dstOff)
+                return (z, Text arr 0 dstOff)
               | dstOff + 4 > dstLen = do
                 let !dstLen' = dstLen + (l + o) - srcOff + 4
                 dst' <- A.resizeM dst dstLen'
@@ -1209,7 +1209,7 @@ mapAccumR f z0 = go
               | srcOff < o = do
                 dstLen <- A.getSizeofMArray dst
                 arr <- A.unsafeFreeze dst
-                return (z, text arr (dstOff + 1) (dstLen - dstOff - 1))
+                return (z, Text arr (dstOff + 1) (dstLen - dstOff - 1))
               | dstOff < 3 = do
                 dstLen <- A.getSizeofMArray dst
                 let !dstLen' = dstLen + (srcOff - o) + 4