tidy up replace

haskell · Feb 9, 2023 · 22675d7 · 22675d7
1 parent e275071
commit 22675d7
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Data/Text.hs b/src/Data/Text.hs
@@ -786,10 +786,9 @@ replace needle@(Text _      _      neeLen)
                (Text repArr repOff repLen)
       haystack@(Text hayArr hayOff hayLen)
   | neeLen == 0 = emptyError "replace"
-  | hayLen == 0 = empty -- we can't just return 'haystack' in this case as reboxing might duplicate it
+  | len == 0 = empty -- we can't just return 'haystack' in this case as reboxing might duplicate it
   | L.null ixs  = haystack
-  | len > 0     = Text (A.run x) 0 len
-  | otherwise   = empty
+  | otherwise   = Text (A.run x) 0 len
   where
     ixs = indices needle haystack
     len = hayLen - (neeLen - repLen) `mul` L.length ixs