mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-07 21:15:19 +03:00
17 lines
291 B
Haskell
17 lines
291 B
Haskell
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
|
|
|