aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/Org/DocumentTree.hs2
-rw-r--r--test/Tests/Readers/Org.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org/DocumentTree.hs b/src/Text/Pandoc/Readers/Org/DocumentTree.hs
index 743f6cc0e..3b90c9336 100644
--- a/src/Text/Pandoc/Readers/Org/DocumentTree.hs
+++ b/src/Text/Pandoc/Readers/Org/DocumentTree.hs
@@ -274,7 +274,7 @@ tagsToInlines tags =
-- | Wrap the given inline in a span, marking it as a tag.
tagSpan :: Tag -> Inlines -> Inlines
-tagSpan t = B.spanWith ("", ["tag"], [("data-tag-name", fromTag t)])
+tagSpan t = B.spanWith ("", ["tag"], [("tag-name", fromTag t)])
diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs
index 45b10da42..1db3d2deb 100644
--- a/test/Tests/Readers/Org.hs
+++ b/test/Tests/Readers/Org.hs
@@ -32,7 +32,7 @@ simpleTable' n = table "" (replicate n (AlignDefault, 0.0))
-- | Create a span for the given tag.
tagSpan :: String -> Inlines
-tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) . smallcaps $ str t
+tagSpan t = spanWith ("", ["tag"], [("tag-name", t)]) . smallcaps $ str t
tests :: [TestTree]
tests =