perl-like strip

2008-11-26 21:11:44 +00:00 · 2008-11-26 21:11:44 +00:00 · 0c4cf88578
commit 0c4cf88578
parent c0b1d8694b
1 changed files with 3 additions and 0 deletions
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@ -42,6 +42,9 @@ import Text.ParserCombinators.Parsec

 -- strings

+strip = dropspaces . reverse . dropspaces . reverse
+    where dropspaces = dropWhile (`elem` " \t")
+
 elideLeft width s =
    case length s > width of
      True -> ".." ++ (reverse $ take (width - 2) $ reverse s)