whitespace parsing tweak

2009-06-21 14:42:59 +00:00 · 2009-06-21 14:42:59 +00:00 · f7e8ae1c55
commit f7e8ae1c55
parent 9ff4a23492
1 changed files with 1 additions and 1 deletions
--- 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'