From f2e3e756f81378015a3d1815502f2b94361dce52 Mon Sep 17 00:00:00 2001 From: tgkokk Date: Thu, 5 Jan 2017 22:24:33 +0200 Subject: MediaWiki reader: Fix quotation mark parsing (#3336) Change MediaWiki reader's behavior when the smart option is parsed to match other readers' behavior. Fix #2012. --- src/Text/Pandoc/Readers/MediaWiki.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index df8fea5a6..76f111d53 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -671,9 +671,6 @@ strong = B.strong <$> nested (inlinesBetween start end) end = try $ sym "'''" doubleQuotes :: MWParser Inlines -doubleQuotes = B.doubleQuoted . trimInlines . mconcat <$> try - ((getState >>= guard . readerSmart . mwOptions) *> - openDoubleQuote *> manyTill inline closeDoubleQuote ) - where openDoubleQuote = char '"' <* lookAhead alphaNum - closeDoubleQuote = char '"' <* notFollowedBy alphaNum - +doubleQuotes = B.doubleQuoted <$> nested (inlinesBetween openDoubleQuote closeDoubleQuote) + where openDoubleQuote = sym "\"" >> lookAhead nonspaceChar + closeDoubleQuote = try $ sym "\"" -- cgit v1.2.3