lib: replace notChar for backwards compatibility with megaparsec 5

2018-05-16 21:35:53 -06:00 · 2018-05-16 21:35:53 -06:00 · 31b72f0415
commit 31b72f0415
parent 728f185508
1 changed files with 3 additions and 2 deletions
--- a/hledger-lib/Hledger/Read/Common.hs
+++ b/hledger-lib/Hledger/Read/Common.hs
@ -1024,10 +1024,11 @@ bracketedpostingdatesp
  :: Monad m => Maybe Day -> ErroringJournalParser m [(TagName,Day)]
 bracketedpostingdatesp mdefdate = do
  -- pdbg 0 $ "bracketedpostingdatesp"
-  skipMany $ notChar '['
+  skipMany $ noneOf ['[']
  fmap concat
    $ sepEndBy (try (bracketeddatetagsp mdefdate) <|> char '[' *> pure [])
-               (skipMany $ notChar '[')
+               (skipMany $ noneOf ['['])
+  -- using noneOf ['['] in place of notChar '[' for backwards compatibility

 --- ** bracketed dates