more informative Show Account

2008-10-12 05:07:19 +00:00 · 2008-10-12 05:07:19 +00:00 · 35376cfd9b
commit 35376cfd9b
parent d7db5660b9
1 changed files with 1 additions and 1 deletions
--- a/Ledger/Account.hs
+++ b/Ledger/Account.hs
@ -17,7 +17,7 @@ accounttests = TestList [
               ]

 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