slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: drop dropws

Browse Source
This commit is contained in:
Simon Michael 2011-07-15 21:58:20 +00:00
parent 2aedd32690
commit 287eb6bd00
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-lib/Hledger/Utils.hs
View File

@ -48,9 +48,8 @@ lowercase = map toLower
uppercase = map toUpper uppercase = map toUpper
strip = lstrip . rstrip strip = lstrip . rstrip
lstrip = dropws lstrip = dropWhile (`elem` " \t")
rstrip = reverse . dropws . reverse rstrip = reverse . lstrip . reverse
dropws = dropWhile (`elem` " \t")
elideLeft width s = elideLeft width s =
if length s > width then ".." ++ reverse (take (width - 2) $ reverse s) else s if length s > width then ".." ++ reverse (take (width - 2) $ reverse s) else s