From 8980dd93369d68c056d9934972105cf4e9ec1fc0 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 19 Jan 2011 23:27:44 +0000 Subject: [PATCH] parser cleanup --- hledger-lib/Hledger/Read/JournalReader.hs | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index 880f781b9..f0410f8d3 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -317,8 +317,7 @@ ledgerDefaultCommodity = do restofline return $ return id --- | Try to parse a ledger entry. If we successfully parse an entry, --- check it can be balanced, and fail if not. +-- | Parse a (possibly unbalanced) ledger transaction. ledgerTransaction :: GenParser Char JournalContext Transaction ledgerTransaction = do date <- ledgerdate "transaction" @@ -331,12 +330,7 @@ ledgerTransaction = do ) "description and/or comment" md <- try ledgermetadata <|> return [] postings <- ledgerpostings - let t = txnTieKnot $ Transaction date edate status code description comment md postings "" - -- case balanceTransaction Nothing t of - -- Right t' -> return t' - -- Left err -> fail err - -- check it later, after we have worked out commodity display precisions - return t + return $ txnTieKnot $ Transaction date edate status code description comment md postings "" ledgerdate :: GenParser Char JournalContext Day ledgerdate = do