From 2aa417a2e57f88f34f0f8d4c55d3e621f788216b Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 10 Oct 2018 18:53:01 +0300 Subject: Pandoc.Parsing: rewrite nonspaceChar using noneOf --- src/Text/Pandoc/Parsing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 5d95d0e27..da8cc6433 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -397,7 +397,7 @@ spaceChar = satisfy $ \c -> c == ' ' || c == '\t' -- | Parses a nonspace, nonnewline character. nonspaceChar :: Stream s m Char => ParserT s st m Char -nonspaceChar = satisfy $ flip notElem ['\t', '\n', ' ', '\r'] +nonspaceChar = noneOf ['\t', '\n', ' ', '\r'] -- | Skips zero or more spaces or tabs. skipSpaces :: Stream s m Char => ParserT s st m () -- cgit v1.2.3