diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-21 22:25:18 -0500 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-21 22:25:18 -0500 |
| commit | 1aa24245e948dfcbe4963a0b99d33ce7de9c813b (patch) | |
| tree | d9f5b892d1eb3356de9f35592c49110272cf3483 /src/Text/Pandoc/Writers/HTML.hs | |
| parent | 191141f27fbfd7c83764d3524a89ef30b835cad2 (diff) | |
| download | pandoc-1aa24245e948dfcbe4963a0b99d33ce7de9c813b.tar.gz | |
HTML writer: use plain `"` instead of `"` outside of attributes.
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 [] = "" |