From 287eb6bd0037aafd4981573310fc8300fe918afe Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 15 Jul 2011 21:58:20 +0000
Subject: [PATCH] refactor: drop dropws

---
 hledger-lib/Hledger/Utils.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Utils.hs b/hledger-lib/Hledger/Utils.hs
index 0be3ba20c..ca4164be9 100644
--- 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