From 1bc585837c75f9ab21e49e2dccb6bcd905b1a5bc Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 7 Jan 2007 00:48:46 +0000 Subject: Fixed performance problems with '--strict' option: + Replaced skipEndline with "option ' ' newline" where possible. + Replaced "notFollowedBy' header" in definition of endline with a faster but equally accurate test for a folliwng header. + Removed check at the beginning of 'reference' for a noteStart: This is not needed, because note comes before referenceKey in the definition of block. + Replaced check for a following anyHtmlBlockTag in autoLink with a check for anyHtmlTag or anyHtmlEndTag. + Other small code cleanups. git-svn-id: https://pandoc.googlecode.com/svn/trunk@444 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/ParserCombinators/Pandoc.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text/ParserCombinators') diff --git a/src/Text/ParserCombinators/Pandoc.hs b/src/Text/ParserCombinators/Pandoc.hs index 55481b8dc..b55ceb23d 100644 --- a/src/Text/ParserCombinators/Pandoc.hs +++ b/src/Text/ParserCombinators/Pandoc.hs @@ -81,8 +81,7 @@ blankline = try (do -- | Parses one or more blank lines and returns a string of newlines. blanklines :: GenParser Char st [Char] -blanklines = try (do - many1 blankline) +blanklines = try (many1 blankline) -- | Parses backslash, then applies character parser. escaped :: GenParser Char st Char -- ^ Parser for character to escape -- cgit v1.2.3