From cdf7c78b5f39ac30a3b1089bd8ce9349425bf5cd Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Fri, 16 Mar 2007 06:05:43 +0000 Subject: Added trys to two list start routines. Reason: <|> only parses second parser when first hasn't consumed input. git-svn-id: https://pandoc.googlecode.com/svn/trunk@576 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Readers/Markdown.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 1e3a1ac6c..4ac5bad80 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -359,14 +359,14 @@ bulletListStart = try (do spaceChar skipSpaces) -standardOrderedListStart = do +standardOrderedListStart = try (do many1 digit - char '.' + char '.') -extendedOrderedListStart = do +extendedOrderedListStart = try (do failIfStrict oneOf ['a'..'n'] - oneOf ".)" + oneOf ".)") orderedListStart = try $ do option ' ' newline -- if preceded by a Plain block in a list context -- cgit v1.2.3