hledger/Account.hs

module Account
where
import Ledger.Utils
import Ledger.Types
import AccountName
import Amount
import LedgerEntry
import RawTransaction
import Transaction


instance Show Account where
    show (Account a ts b) = printf "Account %s with %d transactions" a $ length ts

nullacct = Account "" [] nullamt
reorg, split types into separate modules 2007-02-16 12:00:17 +03:00			`module Account`
balance report, refactoring .. not finished but feeling paranoid about systems today\! 2007-02-15 05:08:18 +03:00			`where`
first step towards a library, move Utils to Ledger.Utils 2008-10-03 04:05:16 +04:00			`import Ledger.Utils`
move Types to Ledger/ 2008-10-03 04:12:59 +04:00			`import Ledger.Types`
rename old Account module to AccountName, extract new Account module from Models 2007-02-18 21:12:02 +03:00			`import AccountName`
Amount module 2007-03-12 10:58:11 +03:00			`import Amount`
renamed types: RawLedger, Entry, Transaction, EntryTransaction -> LedgerFile, LedgerEntry, LedgerTransaction, Transaction 2007-07-04 13:51:37 +04:00			`import LedgerEntry`
rename LedgerTransaction to RawTransaction 2008-10-03 03:55:01 +04:00			`import RawTransaction`
rename old Account module to AccountName, extract new Account module from Models 2007-02-18 21:12:02 +03:00			`import Transaction`
balance report, refactoring .. not finished but feeling paranoid about systems today\! 2007-02-15 05:08:18 +03:00

balance: support -s with account patterns 2007-03-11 01:29:09 +03:00			`instance Show Account where`
			`show (Account a ts b) = printf "Account %s with %d transactions" a $ length ts`

a distinct Account data type 2007-03-11 00:21:04 +03:00			`nullacct = Account "" [] nullamt`
balance report, refactoring .. not finished but feeling paranoid about systems today\! 2007-02-15 05:08:18 +03:00