@@ -213,7 +213,7 @@ header = try $ do
213 getPosition >>= \pos -> guard (st == NullState && q == NoQuote && sourceColumn pos == 1)
213 getPosition >>= \pos -> guard (st == NullState && q == NoQuote && sourceColumn pos == 1)
214 level <- liftM length $ many1 $ char '*'
214 level <- liftM length $ many1 $ char '*'
215 guard $ level <= 5
215 guard $ level <= 5
216− skipSpaces
216+ spaceChar
217 content <- trimInlinesF . mconcat <$> manyTill inline newline
217 content <- trimInlinesF . mconcat <$> manyTill inline newline
218 attr <- registerHeader ("", [], []) (runF content defaultParserState)
218 attr <- registerHeader ("", [], []) (runF content defaultParserState)
219 return $ B.headerWith attr level <$> content
219 return $ B.headerWith attr level <$> content