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

lib: replace notChar for backwards compatibility with megaparsec 5

Browse Source
This commit is contained in:
Alex Chen 2018-05-16 21:35:53 -06:00 committed by Simon Michael
parent 728f185508
commit 31b72f0415
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1024,10 +1024,11 @@ bracketedpostingdatesp
:: Monad m => Maybe Day -> ErroringJournalParser m [(TagName,Day)] :: Monad m => Maybe Day -> ErroringJournalParser m [(TagName,Day)]
bracketedpostingdatesp mdefdate = do bracketedpostingdatesp mdefdate = do
-- pdbg 0 $ "bracketedpostingdatesp" -- pdbg 0 $ "bracketedpostingdatesp"
skipMany $ notChar '[' skipMany $ noneOf ['[']
fmap concat fmap concat
$ sepEndBy (try (bracketeddatetagsp mdefdate) <|> char '[' *> pure []) $ sepEndBy (try (bracketeddatetagsp mdefdate) <|> char '[' *> pure [])
(skipMany $ notChar '[') (skipMany $ noneOf ['['])
-- using noneOf ['['] in place of notChar '[' for backwards compatibility
--- ** bracketed dates --- ** bracketed dates