From f2e3e756f81378015a3d1815502f2b94361dce52 Mon Sep 17 00:00:00 2001
From: tgkokk <tgkokk@users.noreply.github.com>
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(-)

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