From 3bcc3277ac82fe9cbe05f3efeb786f430a4e1266 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 15 Oct 2008 18:01:49 +0000 Subject: [PATCH] the parser was too strict about decimal places when balance-checking --- Ledger/Entry.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ledger/Entry.hs b/Ledger/Entry.hs index 87b5148df..99e7769eb 100644 --- a/Ledger/Entry.hs +++ b/Ledger/Entry.hs @@ -42,7 +42,7 @@ isEntryBalanced :: Entry -> Bool isEntryBalanced (Entry {etransactions=ts}) = isZeroAmount sum && numcommodities==1 where sum = sumLedgerTransactions ts - numcommodities = length $ nub $ map (commodity . tamount) ts + numcommodities = length $ nub $ map (symbol . commodity . tamount) ts autofillEntry :: Entry -> Entry autofillEntry e@(Entry {etransactions=ts}) = e{etransactions=autofillTransactions ts}