17 lines
302 B
Haskell
17 lines
302 B
Haskell
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
|
|
|