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)
|
let si = fromIntegral (start-1)
|
||||||
ei = fromIntegral (end-1)
|
ei = fromIntegral (end-1)
|
||||||
(x, xs) = splitAt si o
|
(x, xs) = splitAt si o
|
||||||
(y, z) = splitAt (ei - si) xs
|
z = drop (ei - si) xs
|
||||||
in
|
in
|
||||||
x ++ r ++ z
|
x ++ r ++ z
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue