20 lines
335 B
Haskell
20 lines
335 B
Haskell
module Account
|
|
where
|
|
import qualified Data.Map as Map
|
|
|
|
import Utils
|
|
import Types
|
|
import AccountName
|
|
import Amount
|
|
import Entry
|
|
import Transaction
|
|
import EntryTransaction
|
|
import RawLedger
|
|
|
|
|
|
instance Show Account where
|
|
show (Account a ts b) = printf "Account %s with %d transactions" a $ length ts
|
|
|
|
nullacct = Account "" [] nullamt
|
|
|