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

a cleanup I forgot

Browse Source
This commit is contained in:
Simon Michael 2009-04-10 08:05:56 +00:00
parent 2b672c5837
commit c14f1c280f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Ledger/LedgerTransaction.hs
View File

@ -91,8 +91,8 @@ isLedgerTransactionBalanced (LedgerTransaction {ltpostings=ps}) =
-- return an error message instead. -- return an error message instead.
balanceLedgerTransaction :: LedgerTransaction -> Either String LedgerTransaction balanceLedgerTransaction :: LedgerTransaction -> Either String LedgerTransaction
balanceLedgerTransaction t@LedgerTransaction{ltpostings=ps} balanceLedgerTransaction t@LedgerTransaction{ltpostings=ps}
| length missingamounts > 1 = Left $ printerr "could not balance this entry, too many missing amounts" | length missingamounts > 1 = Left $ printerr "could not balance this transaction, too many missing amounts"
| not $ isLedgerTransactionBalanced t' = Left $ printerr "could not balance this entry, amounts do not add up to zero" | not $ isLedgerTransactionBalanced t' = Left $ printerr nonzerobalanceerror
| otherwise = Right t' | otherwise = Right t'
where where
(withamounts, missingamounts) = partition hasAmount $ filter isReal ps (withamounts, missingamounts) = partition hasAmount $ filter isReal ps
@ -104,3 +104,5 @@ balanceLedgerTransaction t@LedgerTransaction{ltpostings=ps}
| otherwise = p | otherwise = p
where otherstotal = sum $ map pamount withamounts where otherstotal = sum $ map pamount withamounts
printerr s = printf "%s:\n%s" s (showLedgerTransactionUnelided t) printerr s = printf "%s:\n%s" s (showLedgerTransactionUnelided t)
nonzerobalanceerror = "could not balance this transaction, amounts do not add up to zero"