Fixed regression in latex smart quote parsing.

Closes #2645.

In cases where a match was not found for a quote, everything
from the open quote to the end of the paragraph was being dropped.
This commit is contained in:
John MacFarlane 2016-01-11 12:16:25 -08:00
parent 4db912f0f5
commit 8611ac56a6

View file

@ -179,10 +179,11 @@ quoted' f starter ender = do
then do
ils <- many (notFollowedBy ender >> inline)
(ender >> return (f (mconcat ils))) <|>
lit (case startchs of
"``" -> ""
"`" -> ""
_ -> startchs)
(<> mconcat ils) <$>
lit (case startchs of
"``" -> ""
"`" -> ""
_ -> startchs)
else lit startchs
doubleQuote :: LP Inlines