diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-10 18:53:01 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-10 18:53:01 +0300 |
| commit | 2aa417a2e57f88f34f0f8d4c55d3e621f788216b (patch) | |
| tree | 7239d45b73e260a13be14a2b753a6552deeadaa2 /src/Text | |
| parent | 8d959179f96134ee9b96fafbbd061aefbf7968cd (diff) | |
| download | pandoc-2aa417a2e57f88f34f0f8d4c55d3e621f788216b.tar.gz | |
Pandoc.Parsing: rewrite nonspaceChar using noneOf
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
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 () |