Use drop instead of splitAt since we only use the second half

This commit is contained in:
Joseph C. Sible 2020-02-01 23:02:10 -05:00
parent c29b6afa56
commit 8a005526cc
1 changed files with 1 additions and 1 deletions

View File

@ -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