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

lib: enable the custom parse errors

Browse Source
This commit is contained in:
Alex Chen 2018-06-06 00:31:37 -06:00
parent 2d21ec0174
commit 5f87e7cd5d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -119,6 +119,7 @@ import Text.Megaparsec.Char.Lexer (decimal)
import Hledger.Data import Hledger.Data
import Hledger.Utils import Hledger.Utils
import Hledger.Utils.ParseErrors
import qualified Hledger.Query as Q (Query(Any)) import qualified Hledger.Query as Q (Query(Any))
-- | A hledger journal reader is a triple of storage format name, a -- | A hledger journal reader is a triple of storage format name, a
@ -229,7 +230,7 @@ parseAndFinaliseJournal parser iopts f txt = do
case journalFinalise t f txt (not $ ignore_assertions_ iopts) pj' of case journalFinalise t f txt (not $ ignore_assertions_ iopts) pj' of
Right j -> return j Right j -> return j
Left e -> throwError e Left e -> throwError e
Left e -> throwError $ parseErrorPretty e Left e -> throwError $ customParseErrorPretty txt e
parseAndFinaliseJournal' :: JournalParser Identity ParsedJournal -> InputOpts parseAndFinaliseJournal' :: JournalParser Identity ParsedJournal -> InputOpts
-> FilePath -> Text -> ExceptT String IO Journal -> FilePath -> Text -> ExceptT String IO Journal