2008-10-03 04:40:06 +04:00
|
|
|
module Ledger.Account
|
2007-02-15 05:08:18 +03:00
|
|
|
where
|
2008-10-03 04:05:16 +04:00
|
|
|
import Ledger.Utils
|
2008-10-03 04:12:59 +04:00
|
|
|
import Ledger.Types
|
2008-10-03 04:40:06 +04:00
|
|
|
import Ledger.AccountName
|
|
|
|
|
import Ledger.Amount
|
|
|
|
|
import Ledger.LedgerEntry
|
|
|
|
|
import Ledger.RawTransaction
|
|
|
|
|
import Ledger.Transaction
|
2007-02-15 05:08:18 +03:00
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
2007-03-11 00:21:04 +03:00
|
|
|
nullacct = Account "" [] nullamt
|
2007-02-15 05:08:18 +03:00
|
|
|
|
