Text.Pandoc.Writer.Shared: fixed bug in tagWithAttrs.
A space was omitted before key-value attributes, leading
to invalid HTML.
commitac7714ca398eaf25dd512754c1cb9aee297ff3d1
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateSat 26 Oct 2013, 18:22 (13 years ago)
parent416dad8
src/Text/Pandoc/Writers/Shared.hs+2−3
@@ -134,7 +134,6 @@ tagWithAttrs tag (ident,classes,kvs) = hsep
134134 ,if null classes
135135 then empty
136136 else "class=" <> doubleQuotes (text (unwords classes))
137− ]
138− <> hsep (map (\(k,v) -> text k <> "=" <>
137+ ,hsep (map (\(k,v) -> text k <> "=" <>
139138 doubleQuotes (text (escapeStringForXML v))) kvs)
140− <> ">"
139+ ] <> ">"