1aa2424 · typeable/pandoc

git.iko.soy/typeable/pandoc

HTML writer: use plain `"` instead of `"` outside of attributes.

commit1aa24245e948dfcbe4963a0b99d33ce7de9c813b authorJohn MacFarlane <jgm@berkeley.edu> dateWed 21 Nov 2018, 22:25 (8 years ago) parent191141f

1 file changed+2−1

unifiedsplit

src/Text/Pandoc/Writers/HTML.hs+2−1

@@ -125,7 +125,8 @@ defaultWriterState = WriterState {stNotes= [], stMath = False, stQuotes = False,

125125

126126strToHtml :: String -> Html

127127strToHtml ('\'':xs) = preEscapedString "\'" `mappend` strToHtml xs

128−strToHtml xs@(_:_) = case break (=='\'') xs of

128+strToHtml ('"' :xs) = preEscapedString "\"" `mappend` strToHtml xs

129+strToHtml xs@(_:_) = case break (\c -> c == '\'' || c == '"') xs of

129130 (_ ,[]) -> toHtml xs

130131 (ys,zs) -> toHtml ys `mappend` strToHtml zs

131132strToHtml [] = ""