add: tweak output

This commit is contained in:
Simon Michael 2013-03-05 20:18:10 +00:00
parent edcfd2abb1
commit 47a4c52904

View File

@ -69,7 +69,7 @@ getAndAddTransactionsLoop j opts defdate moredefs = do
hPrintf stderr "\nStarting a new transaction.\n"
t <- getTransaction j opts defdate moredefs
j' <- journalAddTransaction j opts t
hPrintf stderr "\nAdded to the journal.\n"
hPrintf stderr "Added to the journal.\n"
let defdate' = showDate $ tdate t
getAndAddTransactionsLoop j' opts defdate' []