37 lines
1.1 KiB
Haskell
37 lines
1.1 KiB
Haskell
{-|
|
|
|
|
A 'RawTransaction' represents a single transaction line within a ledger
|
|
entry. We call it raw to distinguish from the cached 'Transaction'.
|
|
|
|
-}
|
|
|
|
module Ledger.RawTransaction
|
|
where
|
|
import Ledger.Utils
|
|
import Ledger.Types
|
|
import Ledger.Amount
|
|
import Ledger.AccountName
|
|
|
|
|
|
instance Show RawTransaction where show = showLedgerTransaction
|
|
|
|
showLedgerTransaction :: RawTransaction -> String
|
|
showLedgerTransaction t = (showaccountname $ taccount t) ++ " " ++ (showamount $ tamount t)
|
|
where
|
|
showaccountname = printf "%-22s" . elideAccountName 22
|
|
showamount = printf "%12s" . showAmountOrZero
|
|
|
|
autofillTransactions :: [RawTransaction] -> [RawTransaction]
|
|
autofillTransactions ts =
|
|
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
|
|
isnormal t = (symbol $ commodity $ tamount t) /= "AUTO"
|
|
balance t = if isnormal t then t else t{tamount = -(sumLedgerTransactions normals)}
|
|
|
|
sumLedgerTransactions :: [RawTransaction] -> Amount
|
|
sumLedgerTransactions = sumAmounts . map tamount
|