diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 9 |
1 files changed, 3 insertions, 6 deletions
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 "\"" |