hledger/Account.hs

module Account
where
import Utils
import Types
import AccountName
import Amount
import LedgerEntry
import LedgerTransaction
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`
			`import Utils`
BasicTypes -> Types 2007-07-02 18:54:36 +04:00			`import 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`
			`import LedgerTransaction`
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