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

strip cleanup

Browse Source
This commit is contained in:
Simon Michael 2009-03-15 03:57:19 +00:00
parent f1ab2fcdbb
commit 26594287cc
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Ledger/Utils.hs
View File

@ -46,8 +46,7 @@ import Text.ParserCombinators.Parsec
lowercase = map toLower lowercase = map toLower
uppercase = map toUpper uppercase = map toUpper
strip = dropspaces . reverse . dropspaces . reverse strip = dropws . reverse . dropws . reverse where dropws = dropWhile (`elem` " \t")
where dropspaces = dropWhile (`elem` " \t")
elideLeft width s = elideLeft width s =
case length s > width of case length s > width of