aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-10-26 18:22:59 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-10-26 18:22:59 -0700
commitac7714ca398eaf25dd512754c1cb9aee297ff3d1 (patch)
treef205ab1030d83c3e23f179e8c1ca7af23b144be5 /src/Text/Pandoc
parent416dad86dca4087f4eab21f0ac6296178a1479cf (diff)
downloadpandoc-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/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Shared.hs5
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)
- <> ">"
+ ] <> ">"