From fb1843ecdeea5131ea4ed27adc1124e13ae1c5d9 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 28 Oct 2015 10:02:55 -0700 Subject: Fixed omitted `url(...)` in CSS data-uri with `--self-contained`. Fixes #2489. --- src/Text/Pandoc/SelfContained.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs index 4f4b6057b..390a7a21a 100644 --- a/src/Text/Pandoc/SelfContained.hs +++ b/src/Text/Pandoc/SelfContained.hs @@ -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 -- cgit v1.2.3