@@ -242,15 +242,15 @@ setextHeader = try $ do
242-- hrule block
242-- hrule block
245−hruleWith chr = try $ do
245+hrule = try $ do
247+ start <- oneOf hruleChars
246− count 3 (skipSpaces >> char chr)
248+ count 2 (skipSpaces >> char start)
247− skipMany (skipSpaces >> char chr)
249+ skipMany (skipSpaces >> char start)
249 optional blanklines
251 optional blanklines
250 return HorizontalRule
252 return HorizontalRule
252−hrule = choice (map hruleWith hruleChars) <?> "hrule"
255-- code blocks
255-- code blocks