slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add: fix runtime printf error from 2nd txn on (fixes #164)

Browse Source
This commit is contained in:
Simon Michael 2014-03-05 12:48:13 -08:00
parent add9fee6db
commit 856f62b465
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger/Hledger/Cli/Add.hs
View File

@ -96,8 +96,11 @@ getAndAddTransactions es@EntryState{..} = (do
Nothing -> fail "urk ?"
Just t -> do
j <- if debug_ esOpts > 0
then hPrintf stderr "Skipping journal add due to debug mode.\n" >> return esJournal
else journalAddTransaction esJournal esOpts t >> hPrintf stderr "Saved.\n"
then do hPrintf stderr "Skipping journal add due to debug mode.\n"
return esJournal
else do j' <- journalAddTransaction esJournal esOpts t
hPrintf stderr "Saved.\n"
return j'
hPrintf stderr "Starting the next transaction (. or ctrl-D/ctrl-C to quit)\n"
getAndAddTransactions es{esJournal=j, esDefDate=tdate t}
)