From 42c139d302a682339faaab011ffa8ebca2d93a2a Mon Sep 17 00:00:00 2001
From: Ophir Lifshitz <hangfromthefloor@gmail.com>
Date: Thu, 23 Jul 2015 02:29:37 -0400
Subject: Markdown Reader: Skip spaces in headers

---
 src/Text/Pandoc/Readers/Markdown.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3