@@ -26,6 +26,7 @@ import Data.Text (Text)
26import qualified Data.Text as T
26import qualified Data.Text as T
27import Text.HTML.TagSoup.Entity (lookupEntity, htmlEntities)
27import Text.HTML.TagSoup.Entity (lookupEntity, htmlEntities)
28import Text.DocLayout
28import Text.DocLayout
29+import Text.Printf (printf)
29import qualified Data.Map as M
30import qualified Data.Map as M
30import Data.String
31import Data.String
@@ -89,7 +90,7 @@ inTagsIndented tagType = inTags True tagType []
89toEntities :: Text -> Text
90toEntities :: Text -> Text
90toEntities = T.concatMap go
91toEntities = T.concatMap go
91 where go c | isAscii c = T.singleton c
92 where go c | isAscii c = T.singleton c
92− | otherwise = T.pack ("&#" ++ show (ord c) ++ ";")
93+ | otherwise = T.pack (printf "&#x%X;" (ord c))
94-- | Escape all non-ascii characters using HTML5 entities, falling
95-- | Escape all non-ascii characters using HTML5 entities, falling
95-- back to numerical entities.
96-- back to numerical entities.