aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorOphir Lifshitz <hangfromthefloor@gmail.com>2015-07-23 02:29:37 -0400
committerOphir Lifshitz <hangfromthefloor@gmail.com>2015-07-23 02:29:37 -0400
commit42c139d302a682339faaab011ffa8ebca2d93a2a (patch)
tree37f11c96506140af6c17409dd04acc3826c96539 /src/Text
parentfa2c008ae5edf36b5345d56e859d0b5cf7a14e69 (diff)
downloadpandoc-42c139d302a682339faaab011ffa8ebca2d93a2a.tar.gz
Markdown Reader: Skip spaces in headers
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index b8f5dab60..ab33023bb 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -521,6 +521,7 @@ atxClosing :: MarkdownParser Attr
atxClosing = try $ do
attr' <- option nullAttr
(guardEnabled Ext_mmd_header_identifiers >> mmdHeaderIdentifier)
+ skipSpaces
skipMany (char '#')
skipSpaces
attr <- option attr'
@@ -547,6 +548,7 @@ setextHeader = try $ do
-- This lookahead prevents us from wasting time parsing Inlines
-- unless necessary -- it gives a significant performance boost.
lookAhead $ anyLine >> many1 (oneOf setextHChars) >> blankline
+ skipSpaces
(text, raw) <- withRaw $
trimInlinesF . mconcat <$> many1 (notFollowedBy setextHeaderEnd >> inline)
attr <- setextHeaderEnd