slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more informative Show Account

Browse Source
This commit is contained in:
Simon Michael 2008-10-12 05:07:19 +00:00
parent d7db5660b9
commit 35376cfd9b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Account.hs
View File

@ -17,7 +17,7 @@ accounttests = TestList [
] ]
instance Show Account where instance Show Account where
show (Account a ts b) = printf "Account %s with %d transactions" a $ length ts show (Account a ts b) = printf "Account %s with %d txns and %s balance" a (length ts) (show b)
nullacct = Account "" [] nullamt nullacct = Account "" [] nullamt