slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

parser cleanup

Browse Source
This commit is contained in:
Simon Michael 2011-01-19 23:27:44 +00:00
parent a87c016615
commit 8980dd9336
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -317,8 +317,7 @@ ledgerDefaultCommodity = do
restofline restofline
return $ return id return $ return id
-- | Try to parse a ledger entry. If we successfully parse an entry, -- | Parse a (possibly unbalanced) ledger transaction.
-- check it can be balanced, and fail if not.
ledgerTransaction :: GenParser Char JournalContext Transaction ledgerTransaction :: GenParser Char JournalContext Transaction
ledgerTransaction = do ledgerTransaction = do
date <- ledgerdate <?> "transaction" date <- ledgerdate <?> "transaction"
@ -331,12 +330,7 @@ ledgerTransaction = do
) <?> "description and/or comment" ) <?> "description and/or comment"
md <- try ledgermetadata <|> return [] md <- try ledgermetadata <|> return []
postings <- ledgerpostings postings <- ledgerpostings
let t = txnTieKnot $ Transaction date edate status code description comment md postings "" return $ 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
ledgerdate :: GenParser Char JournalContext Day ledgerdate :: GenParser Char JournalContext Day
ledgerdate = do ledgerdate = do