From 47a9564bdba1b6e0a45c5a54b08c624f4b5b20f4 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 2 Aug 2011 23:27:41 +0000
Subject: [PATCH] showJournalDebug

---
 hledger-lib/Hledger/Data/Journal.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index 21cb032ca..cd6aed069 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -43,6 +43,18 @@ instance Show Journal where
              -- ++ (show $ journalTransactions l)
              where accounts = flatten $ journalAccountNameTree j
 
+showJournalDebug j = unlines [
+                      show j
+                     ,show (jtxns j)
+                     ,show (jmodifiertxns j)
+                     ,show (jperiodictxns j)
+                     ,show $ open_timelog_entries j
+                     ,show $ historical_prices j
+                     ,show $ final_comment_lines j
+                     ,show $ jContext j
+                     ,show $ map fst $ files j
+                     ]
+
 nulljournal :: Journal
 nulljournal = Journal { jmodifiertxns = []
                       , jperiodictxns = []