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

clarify entry balance checking and show the full entry when unbalanced

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 06:47:47 +00:00
parent 9f341b0279
commit 3138046744
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Ledger/Entry.hs
View File

@ -42,11 +42,12 @@ isEntryBalanced :: Entry -> Bool
isEntryBalanced = isZeroAmount . sumLedgerTransactions . etransactions isEntryBalanced = isZeroAmount . sumLedgerTransactions . etransactions
autofillEntry :: Entry -> Entry autofillEntry :: Entry -> Entry
autofillEntry e@(Entry _ _ _ _ _ ts _) = autofillEntry e@(Entry {etransactions=ts}) = e{etransactions=autofillTransactions ts}
let e' = e{etransactions=autofillTransactions ts} in
case (isEntryBalanced e') of assertBalancedEntry :: Entry -> Entry
True -> e' assertBalancedEntry e
False -> (error $ "transactions don't balance in " ++ show e) | isEntryBalanced e = e
| otherwise = error $ "transactions don't balance in:\n" ++ show e
{-| {-|
Helper for the print command which shows cleaned up ledger file Helper for the print command which shows cleaned up ledger file

2
Ledger/Parse.hs
View File

@ -231,7 +231,7 @@ ledgerentry = do
comment <- ledgercomment comment <- ledgercomment
restofline restofline
transactions <- ledgertransactions transactions <- ledgertransactions
return $ autofillEntry $ Entry date status code description comment transactions (unlines preceding) return $ assertBalancedEntry $ autofillEntry $ Entry date status code description comment transactions (unlines preceding)
ledgerdate :: Parser String ledgerdate :: Parser String
ledgerdate = do ledgerdate = do