diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-10-26 18:22:59 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-10-26 18:22:59 -0700 |
| commit | ac7714ca398eaf25dd512754c1cb9aee297ff3d1 (patch) | |
| tree | f205ab1030d83c3e23f179e8c1ca7af23b144be5 /src | |
| parent | 416dad86dca4087f4eab21f0ac6296178a1479cf (diff) | |
| download | pandoc-ac7714ca398eaf25dd512754c1cb9aee297ff3d1.tar.gz | |
Text.Pandoc.Writer.Shared: fixed bug in tagWithAttrs.
A space was omitted before key-value attributes, leading
to invalid HTML.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index 89923822c..9cb08803c 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -134,7 +134,6 @@ tagWithAttrs tag (ident,classes,kvs) = hsep ,if null classes then empty else "class=" <> doubleQuotes (text (unwords classes)) - ] - <> hsep (map (\(k,v) -> text k <> "=" <> + ,hsep (map (\(k,v) -> text k <> "=" <> doubleQuotes (text (escapeStringForXML v))) kvs) - <> ">" + ] <> ">" |