include file name in a journal's string representation

This commit is contained in:
Simon Michael 2010-05-23 22:15:08 +00:00
parent a8d86fb5e5
commit 91b7736a8b

View File

@ -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))