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

perl-like strip

Browse Source
This commit is contained in:
Simon Michael 2008-11-26 21:11:44 +00:00
parent c0b1d8694b
commit 0c4cf88578
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Ledger/Utils.hs
View File

@ -42,6 +42,9 @@ import Text.ParserCombinators.Parsec
-- strings -- strings
strip = dropspaces . reverse . dropspaces . reverse
where dropspaces = dropWhile (`elem` " \t")
elideLeft width s = elideLeft width s =
case length s > width of case length s > width of
True -> ".." ++ (reverse $ take (width - 2) $ reverse s) True -> ".." ++ (reverse $ take (width - 2) $ reverse s)