1aa2424 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

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

1aa2424John MacFarlane8 years ago

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

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

125

126strToHtml :: String -> Html

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

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

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

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

129 (_ ,[]) -> toHtml xs

130 (_ ,[]) -> toHtml xs

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

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

131strToHtml [] = ""

132strToHtml [] = ""