@@ -30,6 +30,7 @@ Conversion of 'Pandoc' documents to HTML.
3030module Text.Pandoc.Writers.HTML ( writeHtml, writeHtmlString ) where
3131import Text.Pandoc.Definition
3232import Text.Pandoc.Shared
33+import Text.Pandoc.Entities (decodeEntities)
3334import Text.Regex ( mkRegex, matchRegex )
3435import Numeric ( showHex )
3536import Data.Char ( ord, toLower )
@@ -127,7 +128,7 @@ obfuscateChar char =
127128
128129-- | Obfuscate string using entities.
129130obfuscateString :: String -> String
130−obfuscateString = concatMap obfuscateChar
131+obfuscateString = (concatMap obfuscateChar) . decodeEntities
131132
132133-- | Convert Pandoc block element to HTML.
133134blockToHtml :: WriterOptions -> Block -> Html