@@ -67,7 +67,10 @@ convertTag media sourceURL t@(TagOpen "script" as) =
6767 [] -> return t
6868 src -> do
6969 (raw, mime) <- getRaw media sourceURL (fromAttrib "type" t) src
70− let enc = "data:" ++ mime ++ "," ++ escapeURIString isOk (toString raw)
70+ let mime' = if ';' `elem` mime
71+ then mime -- mime type already has charset
72+ else mime ++ ";charset=utf-8"
73+ let enc = "data:" ++ mime' ++ "," ++ escapeURIString isOk (toString raw)
7174 return $ TagOpen "script" (("src",enc) : [(x,y) | (x,y) <- as, x /= "src"])
7275convertTag media sourceURL t@(TagOpen "link" as) =
7376 case fromAttrib "href" t of