From eddcb6b92a209d359e2665228a59eb1c42196fb1 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 28 Jan 2007 21:29:39 +0000
Subject: [PATCH] eat space between code and description

---
 hledger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger.hs b/hledger.hs
index 8a92e5b6b..349e86548 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -322,7 +322,7 @@ ledgerdate = do date <- many1 (digit <|> char '/'); many1 spacenonewline; return
 
 ledgerstatus = try (do { char '*'; many1 spacenonewline; return True } ) <|> return False
 
-ledgercode = try (do { char '('; code <- anyChar `manyTill` char ')'; return code } ) <|> return ""
+ledgercode = try (do { char '('; code <- anyChar `manyTill` char ')'; many1 spacenonewline; return code } ) <|> return ""
 
 ledgertransaction = do
   many1 spacenonewline