add: tweak output
This commit is contained in:
parent
edcfd2abb1
commit
47a4c52904
@ -69,7 +69,7 @@ getAndAddTransactionsLoop j opts defdate moredefs = do
|
|||||||
hPrintf stderr "\nStarting a new transaction.\n"
|
hPrintf stderr "\nStarting a new transaction.\n"
|
||||||
t <- getTransaction j opts defdate moredefs
|
t <- getTransaction j opts defdate moredefs
|
||||||
j' <- journalAddTransaction j opts t
|
j' <- journalAddTransaction j opts t
|
||||||
hPrintf stderr "\nAdded to the journal.\n"
|
hPrintf stderr "Added to the journal.\n"
|
||||||
let defdate' = showDate $ tdate t
|
let defdate' = showDate $ tdate t
|
||||||
getAndAddTransactionsLoop j' opts defdate' []
|
getAndAddTransactionsLoop j' opts defdate' []
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user