aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-09-17 10:05:55 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-09-17 10:05:55 -0700
commitcf7f80b11f5c266c7d1d7e200b41658a87f765b0 (patch)
tree8460ec141506a6e023491cd806e809279b6df32e /src/Text
parent57d93cca563cb162e4126e8738ecda27ce661623 (diff)
downloadpandoc-cf7f80b11f5c266c7d1d7e200b41658a87f765b0.tar.gz
Fix linter warning.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs7
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