From cf7f80b11f5c266c7d1d7e200b41658a87f765b0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 17 Sep 2021 10:05:55 -0700 Subject: Fix linter warning. --- src/Text/Pandoc/Readers/Markdown.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src') 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 -- cgit v1.2.3