From 26594287cc0ee12b670b21299569478766b0db16 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 15 Mar 2009 03:57:19 +0000
Subject: [PATCH] strip cleanup

---
 Ledger/Utils.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Ledger/Utils.hs b/Ledger/Utils.hs
index fe7e5d780..2bbe1b247 100644
--- a/Ledger/Utils.hs
+++ b/Ledger/Utils.hs
@@ -46,8 +46,7 @@ import Text.ParserCombinators.Parsec
 lowercase = map toLower
 uppercase = map toUpper
 
-strip = dropspaces . reverse . dropspaces . reverse
-    where dropspaces = dropWhile (`elem` " \t")
+strip = dropws . reverse . dropws . reverse where dropws = dropWhile (`elem` " \t")
 
 elideLeft width s =
     case length s > width of