git.iko.soy/typeable/pandoc
on master help sign in
Text.Pandoc.Writer.Shared: fixed bug in tagWithAttrs.
ac7714cJohn MacFarlane
src/Text/Pandoc/Writers/Shared.hs+2−3
compare with master
unifiedsplit
@@ -134,7 +134,6 @@ tagWithAttrs tag (ident,classes,kvs) = hsep
134 ,if null classes
134 ,if null classes
135 then empty
135 then empty
136 else "class=" <> doubleQuotes (text (unwords classes))
136 else "class=" <> doubleQuotes (text (unwords classes))
137− ]
138− <> hsep (map (\(k,v) -> text k <> "=" <>
137+ ,hsep (map (\(k,v) -> text k <> "=" <>
139 doubleQuotes (text (escapeStringForXML v))) kvs)
138 doubleQuotes (text (escapeStringForXML v))) kvs)
140− <> ">"
139+ ] <> ">"