HTML writer: don't add data- prefix to unknown attributes beginning w…

…ith data-. Or we'll get data-data-blah.
jgm · Oct 17, 2017 · 514958f · 514958f
1 parent 61641f9
commit 514958f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
@@ -551,6 +551,7 @@ toAttrs kvs = do
   return $ map (\(x,y) ->
      customAttribute
         (fromString (if not html5 || x `Set.member` html5Attributes
+                                  || "data-" `isPrefixOf` x
                         then x
                         else "data-" ++ x)) (toValue y)) kvs