refactor: drop dropws

2011-07-15 21:58:20 +00:00 · 2011-07-15 21:58:20 +00:00 · 287eb6bd00
commit 287eb6bd00
parent 2aedd32690
1 changed files with 2 additions and 3 deletions
--- a/hledger-lib/Hledger/Utils.hs
+++ b/hledger-lib/Hledger/Utils.hs
@ -48,9 +48,8 @@ lowercase = map toLower
 uppercase = map toUpper

 strip = lstrip . rstrip
-lstrip = dropws
-rstrip = reverse . dropws . reverse
-dropws = dropWhile (`elem` " \t")
+lstrip = dropWhile (`elem` " \t")
+rstrip = reverse . lstrip . reverse

 elideLeft width s =
    if length s > width then ".." ++ reverse (take (width - 2) $ reverse s) else s