From 74dc62e7300b42f020005ec0f56a52e5ad41e1e0 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Tue, 28 Aug 2007 07:04:47 +0000 Subject: 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 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 0c635abee..d8c6edf22 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -242,15 +242,15 @@ setextHeader = try $ do -- hrule block -- -hruleWith chr = try $ do - count 3 (skipSpaces >> char chr) - skipMany (skipSpaces >> char chr) +hrule = try $ do + skipSpaces + 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 -- -- cgit v1.2.3