diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 14dcd5d66..601169f66 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -759,14 +759,12 @@ withQuoteContext context parser = do singleQuoted = try $ do singleQuoteStart withQuoteContext InSingleQuote $ do - notFollowedBy space result <- many1Till inline singleQuoteEnd return $ Quoted SingleQuote $ normalizeSpaces result doubleQuoted = try $ do doubleQuoteStart withQuoteContext InDoubleQuote $ do - notFollowedBy space result <- many1Till inline doubleQuoteEnd return $ Quoted DoubleQuote $ normalizeSpaces result @@ -779,15 +777,16 @@ failIfInQuoteContext context = do singleQuoteStart = try $ do failIfInQuoteContext InSingleQuote char '\'' <|> char '\8216' - notFollowedBy (oneOf ")!],.;:-?") + notFollowedBy (oneOf ")!],.;:-? \t\n") singleQuoteEnd = try $ do char '\'' <|> char '\8217' notFollowedBy alphaNum -doubleQuoteStart = do +doubleQuoteStart = try $ do failIfInQuoteContext InDoubleQuote char '"' <|> char '\8220' + notFollowedBy (oneOf " \t\n") doubleQuoteEnd = char '"' <|> char '\8221' |