From 91b7736a8bef9f5dd65e05f738d890dfdd8fbe5a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 23 May 2010 22:15:08 +0000
Subject: [PATCH] include file name in a journal's string representation

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

diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index f95baf52e..71c3c7604 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -20,7 +20,8 @@ import Hledger.Data.TimeLog
 
 
 instance Show Journal where
-    show j = printf "Journal with %d transactions, %d accounts: %s"
+    show j = printf "Journal %s with %d transactions, %d accounts: %s"
+             (filepath j)
              (length (jtxns j) +
               length (jmodifiertxns j) +
               length (jperiodictxns j))