;spelling fix
[ci skip]
This commit is contained in:
parent
228edf6ba6
commit
ce5eccfbc0
@ -77,7 +77,7 @@ rstrip = reverse . lstrip . reverse
|
|||||||
chomp :: String -> String
|
chomp :: String -> String
|
||||||
chomp = reverse . dropWhile (`elem` "\r\n") . reverse
|
chomp = reverse . dropWhile (`elem` "\r\n") . reverse
|
||||||
|
|
||||||
-- | Remove consequtive line breaks, replacing them with single space
|
-- | Remove consecutive line breaks, replacing them with single space
|
||||||
singleline :: String -> String
|
singleline :: String -> String
|
||||||
singleline = unwords . filter (/="") . (map strip) . lines
|
singleline = unwords . filter (/="") . (map strip) . lines
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user