@@ -2146,7 +2146,6 @@ singleQuoted = try $ do
2146doubleQuoted :: PandocMonad m => MarkdownParser m (F Inlines)
2146doubleQuoted :: PandocMonad m => MarkdownParser m (F Inlines)
2147doubleQuoted = try $ do
2147doubleQuoted = try $ do
2148 doubleQuoteStart
2148 doubleQuoteStart
2149− contents <- mconcat <$> many (try $ notFollowedBy doubleQuoteEnd >> inline)
2150− withQuoteContext InDoubleQuote (doubleQuoteEnd >> return
2149+ withQuoteContext InDoubleQuote $
2151− (fmap B.doubleQuoted . trimInlinesF $ contents))
2150+ fmap B.doubleQuoted . trimInlinesF . mconcat <$>
2152− <|> return (return (B.str "\8220") <> contents)
2151+ many1Till inline doubleQuoteEnd