From f7e8ae1c55982cee46267348ed21151750470c31 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 21 Jun 2009 14:42:59 +0000
Subject: [PATCH] whitespace parsing tweak

---
 Ledger/Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 9612a1352..56bc5eeb6 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -371,7 +371,7 @@ ledgerpostings :: GenParser Char LedgerFileCtx [Posting]
 ledgerpostings = do
   ctx <- getState
   let parses p = isRight . parseWithCtx ctx p
-  ls <- many1 linebeginningwithspaces
+  ls <- many1 $ try linebeginningwithspaces
   let ls' = filter (not . (ledgercommentline `parses`)) ls
   guard (not $ null ls')
   return $ map (fromparse . parseWithCtx ctx ledgerposting) ls'