Use drop instead of splitAt since we only use the second half
This commit is contained in:
parent
c29b6afa56
commit
8a005526cc
|
@ -200,7 +200,7 @@ doReplace start end o r =
|
|||
let si = fromIntegral (start-1)
|
||||
ei = fromIntegral (end-1)
|
||||
(x, xs) = splitAt si o
|
||||
(y, z) = splitAt (ei - si) xs
|
||||
z = drop (ei - si) xs
|
||||
in
|
||||
x ++ r ++ z
|
||||
|
||||
|
|
Loading…
Reference in New Issue