aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index 45af20ca8..dfc31f7af 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -807,7 +807,8 @@ mathMLToTeXMath s = writeTeX <$> readMathML s
toStringAttr :: [(Text, Text)] -> [(String, String)]
toStringAttr = map go
- where go (x,y) = (T.unpack x, T.unpack y)
+ where go (x,y) = (T.unpack (fromMaybe x $ T.stripPrefix "data-" x),
+ T.unpack y)
pScriptMath :: PandocMonad m => TagParser m Inlines
pScriptMath = try $ do