simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-16 16:57:38 +03:00
Code Issues Projects Releases Wiki Activity

preserve transaction order regardless of where the blank one is

Browse Source
This commit is contained in:
Simon Michael 2007-07-09 17:39:00 +00:00
parent 11c96dd042
commit 573fac2755
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
LedgerTransaction.hs
View File

@ -21,13 +21,14 @@ elideRight width s =
autofillTransactions :: [LedgerTransaction] -> [LedgerTransaction]
autofillTransactions ts =
let (ns, as) = partition isNormal ts
where isNormal t = (symbol $ currency $ tamount t) /= "AUTO" in
case (length as) of
0 -> ns
1 -> ns ++ [balanceTransaction $ head as]
where balanceTransaction t = t{tamount = -(sumLedgerTransactions ns)}
case (length blanks) of
0 -> ts
1 -> map balance ts
otherwise -> error "too many blank transactions in this entry"
where
(normals, blanks) = partition isnormal ts
balance t = if isnormal t then t else t{tamount = -(sumLedgerTransactions normals)}
isnormal t = (symbol $ currency $ tamount t) /= "AUTO"
sumLedgerTransactions :: [LedgerTransaction] -> Amount
sumLedgerTransactions = sum . map tamount