From 77519e2c1d886f21413fc0cd09f9409debc6d6e2 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 14 Nov 2010 18:10:48 +0000 Subject: [PATCH] remove debug code breaking reports --- hledger-lib/Hledger/Read/JournalReader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index da688ed22..1689f9b32 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -332,7 +332,7 @@ ledgerTransaction = do md <- try ledgermetadata <|> return [] postings <- ledgerpostings let t = txnTieKnot $ Transaction date edate status code description comment md postings "" - case Right t of -- balanceTransaction t of + case balanceTransaction t of Right t' -> return t' Left err -> fail err