From cf7f80b11f5c266c7d1d7e200b41658a87f765b0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
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