for debugging

2008-10-15 21:10:59 +00:00 · 2008-10-15 21:10:59 +00:00 · 4679003b83
commit 4679003b83
parent a56da854b3
1 changed files with 1 additions and 0 deletions
--- a/Ledger/RawLedger.hs
+++ b/Ledger/RawLedger.hs
@ -24,6 +24,7 @@ instance Show RawLedger where
              (length $ periodic_entries l))
             (length accounts)
             (show accounts)
+             -- ++ (show $ rawLedgerTransactions l)
             where accounts = flatten $ rawLedgerAccountNameTree l

 rawLedgerTransactions :: RawLedger -> [Transaction]