lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 09:47:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use 'literal tag' instead of 'text (T.unpack tag)' in tagWithAttrs

Browse Source
This commit is contained in:
Wout Gevaert
2022-11-11 10:12:07 -08:00
committed by John MacFarlane
parent e9d2ceb9bd
commit 323be80838
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Shared.hs
+2 -2
View File
@@ -172,8 +172,8 @@ getLang opts meta =
_ -> Nothing
-- | Produce an HTML tag with the given pandoc attributes.
tagWithAttrs :: HasChars a => Text -> Attr -> Doc a
tagWithAttrs tag attr = "<" <> text (T.unpack tag) <> (htmlAttrs attr) <> ">"
tagWithAttrs :: HasChars a => a -> Attr -> Doc a
tagWithAttrs tag attr = "<" <> literal tag <> (htmlAttrs attr) <> ">"
-- | Produce HTML for the given pandoc attributes, to be used in HTML tags
htmlAttrs :: HasChars a => Attr -> Doc a