From 3822d6c4403e55bc3b4ae9e8ea846fe563807645 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 13 Dec 2010 19:24:27 -0800 Subject: Markdown reader: Fixed referenceKey parser to allow space after newline. --- src/Text/Pandoc/Readers/Markdown.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index f27d0635c..4bd9c9e07 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -207,9 +207,8 @@ referenceKey = try $ do notFollowedBy' referenceTitle skipMany (oneOf " \t") optional nl - optional nonindentSpaces - notFollowedBy' reference skipMany (oneOf " \t") + notFollowedBy' reference many1 (noneOf " \t\n") let betweenAngles = try $ char '<' >> manyTill (noneOf ">\n" <|> nl) (char '>') -- cgit v1.2.3