f2749ba · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Parsing: in nonspaceChar use satisfy instead of oneOf.

f2749baJohn MacFarlane6 years ago

src/Text/Pandoc/Parsing.hs+7−1

@@ -443,7 +443,13 @@ spaceChar = satisfy $ \c -> c == ' ' || c == '\t'

443

444-- | Parses a nonspace, nonnewline character.

445nonspaceChar :: Stream s m Char => ParserT s st m Char

446−nonspaceChar = noneOf ['\t', '\n', ' ', '\r']

446+nonspaceChar = satisfy (not . isSpaceChar)

447+ where

448+ isSpaceChar ' ' = True

449+ isSpaceChar '\t' = True

450+ isSpaceChar '\n' = True

451+ isSpaceChar '\r' = True

452+ isSpaceChar _ = False

447

453

448-- | Skips zero or more spaces or tabs.

454-- | Skips zero or more spaces or tabs.

449skipSpaces :: Stream s m Char => ParserT s st m ()

455skipSpaces :: Stream s m Char => ParserT s st m ()