@@ -233,8 +233,9 @@ atxClosing = try $ skipMany (char '#') >> blanklines
234setextHeader = try $ do
234setextHeader = try $ do
235 text <- many1Till inline newline >>= return . normalizeSpaces
235 text <- many1Till inline newline >>= return . normalizeSpaces
236+ level <- choice $ zipWith
236− level <- choice $ zipWith (\ch lev -> try (many1 $ char ch) >> blanklines >> return lev)
237+ (\ch lev -> try (many1 $ char ch) >> blanklines >> return lev)
237− setextHChars [1..(length setextHChars)]
238+ setextHChars [1..(length setextHChars)]
238 return $ Header level text
239 return $ Header level text