mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
0f1cbef9a8
This renames RawTransaction -> Posting and Entry -> LedgerTransaction, plus a bunch more cleanups for consistency. So while ledger 3 has transactions containing postings, and so do we when speaking to users, internally we call ledger 3's transactions LedgerTransaction, and we keep our old Transaction type as well, because it's useful and used all over the place. To review: - ledger 2 had Entrys containing Transactions. - hledger 0.4 had Entrys containing RawTransactions, and Transactions which are a RawTransaction with its parent Entry's info added. Transactions are what we most work with when reporting and are ubiquitous in the code and docs. - ledger 3 has Transactions containing Postings. - hledger 0.5 now has LedgerTransactions containing Postings, with Transactions kept as before (a Posting plus it's parent's info). These could be named PartialTransactions or TransactionPostings, but it gets too verbose and obscure for devs and users.
39 lines
1.2 KiB
Haskell
39 lines
1.2 KiB
Haskell
{-|
|
|
|
|
A 'Transaction' is a 'Posting' with its parent 'LedgerTransaction' \'s date and
|
|
description attached. These are what we actually query when doing reports.
|
|
|
|
-}
|
|
|
|
module Ledger.Transaction
|
|
where
|
|
import Ledger.Utils
|
|
import Ledger.Types
|
|
import Ledger.Dates
|
|
import Ledger.LedgerTransaction
|
|
import Ledger.Posting
|
|
import Ledger.Amount
|
|
|
|
|
|
instance Show Transaction where show=showTransaction
|
|
|
|
showTransaction :: Transaction -> String
|
|
showTransaction (Transaction eno stat d desc a amt ttype) =
|
|
s ++ unwords [showDate d,desc,a,show amt,show ttype]
|
|
where s = if stat then " *" else ""
|
|
|
|
-- | Convert a 'LedgerTransaction' to two or more 'Transaction's. An id number
|
|
-- is attached to the transactions to preserve their grouping - it should
|
|
-- be unique per entry.
|
|
flattenLedgerTransaction :: (LedgerTransaction, Int) -> [Transaction]
|
|
flattenLedgerTransaction (LedgerTransaction d s _ desc _ ps _, n) =
|
|
[Transaction n s d desc (paccount p) (pamount p) (ptype p) | p <- ps]
|
|
|
|
accountNamesFromTransactions :: [Transaction] -> [AccountName]
|
|
accountNamesFromTransactions ts = nub $ map account ts
|
|
|
|
sumTransactions :: [Transaction] -> MixedAmount
|
|
sumTransactions = sum . map amount
|
|
|
|
nulltxn = Transaction 0 False (parsedate "1900/1/1") "" "" nullmixedamt RegularPosting
|