better RawLedger string representation

2008-10-09 09:25:58 +00:00 · 2008-10-09 09:25:58 +00:00 · 165945cf20
commit 165945cf20
parent 3fcb1aaa6c
1 changed files with 4 additions and 1 deletions
--- a/Ledger/RawLedger.hs
+++ b/Ledger/RawLedger.hs
@ -17,10 +17,13 @@ import Ledger.Transaction


 instance Show RawLedger where
-    show l = printf "RawLedger with %d entries"
+    show l = printf "RawLedger with %d entries, %d accounts: %s"
             ((length $ entries l) +
              (length $ modifier_entries l) +
              (length $ periodic_entries l))
+             (length accounts)
+             (show accounts)
+             where accounts = flatten $ rawLedgerAccountNameTree l

 rawLedgerTransactions :: RawLedger -> [Transaction]
 rawLedgerTransactions = txns . entries