aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-10-10 18:53:01 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-10-10 18:53:01 +0300
commit2aa417a2e57f88f34f0f8d4c55d3e621f788216b (patch)
tree7239d45b73e260a13be14a2b753a6552deeadaa2 /src/Text
parent8d959179f96134ee9b96fafbbd061aefbf7968cd (diff)
downloadpandoc-2aa417a2e57f88f34f0f8d4c55d3e621f788216b.tar.gz
Pandoc.Parsing: rewrite nonspaceChar using noneOf
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Parsing.hs2
1 files changed, 1 insertions, 1 deletions
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 ()