Refactored hrule for performance in Markdown reader.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@935 788f1e2b-df1e-0410-8736-df70ead52e1b

src/Text/Pandoc/Readers/Markdown.hs

@@ -242,15 +242,15 @@ setextHeader = try $ do
 -- hrule block
 --
 
-hruleWith chr = try $ do
+hrule = try $ do
-  count 3 (skipSpaces >> char chr)
+  skipSpaces
-  skipMany (skipSpaces >> char chr)
+  start <- oneOf hruleChars
+  count 2 (skipSpaces >> char start)
+  skipMany (skipSpaces >> char start)
   newline
   optional blanklines
   return HorizontalRule
 
-hrule = choice (map hruleWith hruleChars) <?> "hrule"
-
 --
 -- code blocks
 --