From 1aa24245e948dfcbe4963a0b99d33ce7de9c813b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 21 Nov 2018 22:25:18 -0500 Subject: HTML writer: use plain `"` instead of `"` outside of attributes. --- src/Text/Pandoc/Writers/HTML.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 4d15c827c..8cdadca5b 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -125,7 +125,8 @@ defaultWriterState = WriterState {stNotes= [], stMath = False, stQuotes = False, strToHtml :: String -> Html strToHtml ('\'':xs) = preEscapedString "\'" `mappend` strToHtml xs -strToHtml xs@(_:_) = case break (=='\'') xs of +strToHtml ('"' :xs) = preEscapedString "\"" `mappend` strToHtml xs +strToHtml xs@(_:_) = case break (\c -> c == '\'' || c == '"') xs of (_ ,[]) -> toHtml xs (ys,zs) -> toHtml ys `mappend` strToHtml zs strToHtml [] = "" -- cgit v1.2.3