@@ -242,15 +242,15 @@ setextHeader = try $ do
242242-- hrule block
243243--
244244
245−hruleWith chr = try $ do
246− count 3 (skipSpaces >> char chr)
247− skipMany (skipSpaces >> char chr)
245+hrule = try $ do
246+ skipSpaces
247+ start <- oneOf hruleChars
248+ count 2 (skipSpaces >> char start)
249+ skipMany (skipSpaces >> char start)
248250 newline
249251 optional blanklines
250252 return HorizontalRule
251253
252−hrule = choice (map hruleWith hruleChars) <?> "hrule"
253−
254254--
255255-- code blocks
256256--