From 4679003b839b5a1672bdcd940214c9e57c9dd109 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 15 Oct 2008 21:10:59 +0000
Subject: [PATCH] for debugging

---
 Ledger/RawLedger.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Ledger/RawLedger.hs b/Ledger/RawLedger.hs
index 57414ce77..648905d6a 100644
--- 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]