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