simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-07 21:15:19 +03:00
Code Issues Projects Releases Wiki Activity

bin: hledger-check: update for latest hledger-lib (#1072)

Browse Source 
[ci skip]
This commit is contained in:
Simon Michael 2019-07-16 23:30:46 +01:00
parent 6e3a264f17
commit cfb32a89d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bin/hledger-check.hs
View File

@ -110,7 +110,7 @@ main :: IO ()
main = do
opts <- execParser args
journalFile <- maybe H.defaultJournalPath pure (file opts)
ejournal <- H.readJournalFile Nothing Nothing (not $ ignoreAssertions opts) journalFile
ejournal <- H.readJournalFile H.definputopts{H.ignore_assertions_=ignoreAssertions opts} journalFile
case ejournal of
Right j -> do
(journal, starting) <- fixupJournal opts j
@ -237,7 +237,7 @@ fixupJournal opts j = do
. (if pending opts then H.filterJournalTransactions (H.StatusQ H.Pending) else id)
. (if unmarked opts then H.filterJournalTransactions (H.StatusQ H.Unmarked) else id)
. (if real opts then H.filterJournalTransactions (H.Real True) else id)
$ H.journalApplyAliases (aliases opts) j
$ j
let starting = case begin opts of
Just _ ->
let dateSpan = H.DateSpan Nothing (fixDay today begin)