diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/DocumentTree.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/Org.hs | 2 |
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 = |