@@ -74,12 +74,13 @@ convertTags (t@TagOpen{}:ts)
74 | fromAttrib "data-external" t == "1" = (t:) <$> convertTags ts
74 | fromAttrib "data-external" t == "1" = (t:) <$> convertTags ts
75convertTags (t@(TagOpen tagname as):ts)
75convertTags (t@(TagOpen tagname as):ts)
76 | tagname `elem`
76 | tagname `elem`
77− ["img", "embed", "video", "input", "audio", "source", "track"] = do
77+ ["img", "embed", "video", "input", "audio", "source", "track",
78 as' <- mapM processAttribute as
79 as' <- mapM processAttribute as
79 rest <- convertTags ts
80 rest <- convertTags ts
80 return $ TagOpen tagname as' : rest
81 return $ TagOpen tagname as' : rest
81 where processAttribute (x,y) =
82 where processAttribute (x,y) =
82− if x == "src" || x == "data-src" || x == "href" || x == "poster"
83+ if x `elem` ["src", "data-src", "href", "poster", "data-background"]
84 enc <- getDataURI (fromAttrib "type" t) y
85 enc <- getDataURI (fromAttrib "type" t) y
85 return (x, enc)
86 return (x, enc)