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

lib: drop parseAndFinaliseJournal', seems unused (api change)

Browse Source
This commit is contained in:
Simon Michael 2018-07-31 08:54:30 +01:00
parent ebfdee878c
commit 572f5a4b31
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
hledger-lib/Hledger/Read/Common.hs
View File

@ -33,7 +33,6 @@ module Hledger.Read.Common (
journalSourcePos,
generateAutomaticPostings,
parseAndFinaliseJournal,
parseAndFinaliseJournal', -- TODO unused ? check addons
setYear,
getYear,
setDefaultCommodityAndStyle,
@ -229,20 +228,6 @@ parseAndFinaliseJournal parser iopts f txt = do
Left e -> throwError e
Left e -> throwError $ customParseErrorPretty txt e
parseAndFinaliseJournal' :: JournalParser Identity ParsedJournal -> InputOpts
-> FilePath -> Text -> ExceptT String IO Journal
parseAndFinaliseJournal' parser iopts f txt = do
t <- liftIO getClockTime
y <- liftIO getCurrentYear
let ep = runParser (evalStateT parser nulljournal {jparsedefaultyear=Just y}) f txt
case ep of
Right pj ->
let pj' = if auto_ iopts then generateAutomaticPostings pj else pj in
case journalFinalise t f txt (not $ ignore_assertions_ iopts) pj' of
Right j -> return j
Left e -> throwError e
Left e -> throwError $ parseErrorPretty e
setYear :: Year -> JournalParser m ()
setYear y = modify' (\j -> j{jparsedefaultyear=Just y})