diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-05-25 09:19:34 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-25 09:19:34 +0200 |
| commit | e6f4636a2cc6a3fa5ae834528fe21280d8f0a56a (patch) | |
| tree | 726fe50751ed137702f10ab017c3d4b62f14c198 /src/Text/Pandoc/Readers/MediaWiki.hs | |
| parent | b9a30ef9596b8d19554e03cd1ef8f0dc0695a486 (diff) | |
MediaWiki reader: Make smart double quotes depend on `smart` extension.
Closes #3585.
Diffstat (limited to 'src/Text/Pandoc/Readers/MediaWiki.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index c860a0cdf..b261021e0 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -688,6 +688,8 @@ strong = B.strong <$> nested (inlinesBetween start end) end = try $ sym "'''" doubleQuotes :: PandocMonad m => MWParser m Inlines -doubleQuotes = B.doubleQuoted <$> nested (inlinesBetween openDoubleQuote closeDoubleQuote) +doubleQuotes = do + guardEnabled Ext_smart + B.doubleQuoted <$> nested (inlinesBetween openDoubleQuote closeDoubleQuote) where openDoubleQuote = sym "\"" >> lookAhead nonspaceChar closeDoubleQuote = try $ sym "\"" |