aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-10-28 10:02:55 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-10-28 10:06:40 -0700
commitfb1843ecdeea5131ea4ed27adc1124e13ae1c5d9 (patch)
tree6a32feb016eb62d2a929bc541958fe765ae8e05f
parent1d53d452c3a2ac81bcf9bd40f31c40a0656706a2 (diff)
downloadpandoc-fb1843ecdeea5131ea4ed27adc1124e13ae1c5d9.tar.gz
Fixed omitted `url(...)` in CSS data-uri with `--self-contained`.
Fixes #2489.
-rw-r--r--src/Text/Pandoc/SelfContained.hs2
1 files changed, 1 insertions, 1 deletions
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