diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-09-17 10:05:55 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-17 10:05:55 -0700 |
| commit | cf7f80b11f5c266c7d1d7e200b41658a87f765b0 (patch) | |
| tree | 8460ec141506a6e023491cd806e809279b6df32e /src/Text/Pandoc/Readers | |
| parent | 57d93cca563cb162e4126e8738ecda27ce661623 (diff) | |
| download | pandoc-cf7f80b11f5c266c7d1d7e200b41658a87f765b0.tar.gz | |
Fix linter warning.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 917eef287..85599abe4 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1127,10 +1127,9 @@ rawHtmlBlocks = do tabStop <- getOption readerTabStop indentlevel <- option 0 $ do blankline - foldr (+) 0 <$> - many ( (1 <$ char ' ') - <|> - (tabStop <$ char '\t') ) + sum <$> many ( (1 <$ char ' ') + <|> + (tabStop <$ char '\t') ) -- try to find closing tag -- we set stateInHtmlBlock so that closing tags that can be either block or -- inline will not be parsed as inline tags |