reword comment

This commit is contained in:
Joey Hess 2019-11-27 16:38:18 -04:00
parent d830386ab2
commit 37d0f73e66
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -34,6 +34,6 @@ splitc c s = case break (== c) s of
replace :: Eq a => [a] -> [a] -> [a] -> [a] replace :: Eq a => [a] -> [a] -> [a] -> [a]
replace old new = intercalate new . split old replace old new = intercalate new . split old
-- | Only traverses the list once while dropping the last n characters. -- | Only traverses the list once while dropping the last n items.
dropFromEnd :: Int -> [a] -> [a] dropFromEnd :: Int -> [a] -> [a]
dropFromEnd n l = zipWith const l (drop n l) dropFromEnd n l = zipWith const l (drop n l)