lib: don't count periodic/modifier txns in Journal debug output

This commit is contained in:
Simon Michael 2018-03-29 16:45:34 +01:00
parent fc3a71bc46
commit 4d562ef068

View File

@ -119,22 +119,16 @@ instance Show Journal where
show j
| debugLevel < 3 = printf "Journal %s with %d transactions, %d accounts"
(journalFilePath j)
(length (jtxns j) +
length (jmodifiertxns j) +
length (jperiodictxns j))
(length $ jtxns j)
(length accounts)
| debugLevel < 6 = printf "Journal %s with %d transactions, %d accounts: %s"
(journalFilePath j)
(length (jtxns j) +
length (jmodifiertxns j) +
length (jperiodictxns j))
(length $ jtxns j)
(length accounts)
(show accounts)
| otherwise = printf "Journal %s with %d transactions, %d accounts: %s, commodity styles: %s"
(journalFilePath j)
(length (jtxns j) +
length (jmodifiertxns j) +
length (jperiodictxns j))
(length $ jtxns j)
(length accounts)
(show accounts)
(show $ jinferredcommodities j)