Fixed omitted url(...) in CSS data-uri with --self-contained.

Fixes #2489.
This commit is contained in:
John MacFarlane
2015-10-28 10:06:40 -07:00
parent 1d53d452c3
commit fb1843ecde
+1 -1
View File
@@ -135,7 +135,7 @@ pCSSUrl media sourceURL d = P.try $ do
'd':'a':'t':'a':':':_ -> return fallback
u -> do let url' = if isURI u then u else d </> u
enc <- lift $ getDataURI media sourceURL "" url'
return (B.pack enc)
return (B.pack $ "url(" ++ enc ++ ")")
getDataURI :: MediaBag -> Maybe String -> MimeType -> String