module Account
where
import Utils
import Types
import AccountName
import Amount
import Entry
import Transaction
import EntryTransaction


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

nullacct = Account "" [] nullamt