bin: budget: adapt to CliOpts re-factoring

Fixes simonmichael/hledger#615
This commit is contained in:
Mykola Orliuk 2017-10-01 22:32:24 +02:00 committed by Simon Michael
parent 732d589955
commit 8922d86eb9

View File

@ -190,7 +190,7 @@ cmdmode = (mainmode [])
journalBalanceTransactions' :: CliOpts -> Journal -> IO Journal journalBalanceTransactions' :: CliOpts -> Journal -> IO Journal
journalBalanceTransactions' opts j = do journalBalanceTransactions' opts j = do
let assrt = not $ ignore_assertions_ opts let assrt = not . ignore_assertions_ $ inputopts_ opts
either error' return $ journalBalanceTransactions assrt j either error' return $ journalBalanceTransactions assrt j
withJournalDo' :: CliOpts -> (CliOpts -> Journal -> IO ()) -> IO () withJournalDo' :: CliOpts -> (CliOpts -> Journal -> IO ()) -> IO ()