From fd0f041a137fa8b850bb00f42d8dcad1bfe5b021 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Tue, 18 Dec 2018 11:47:26 +0300 Subject: Decompress .svgz when converting to "data:" URI Address #5163 --- src/Text/Pandoc/SelfContained.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs index 2aab015c2..d4970dc2b 100644 --- a/src/Text/Pandoc/SelfContained.hs +++ b/src/Text/Pandoc/SelfContained.hs @@ -250,7 +250,7 @@ getData _ src@('d':'a':'t':'a':':':_) = return $ Left src-- already data: uri getData mimetype src = do let ext = map toLower $ takeExtension src (raw, respMime) <- fetchItem src - let raw' = if ext == ".gz" + let raw' = if ext `elem` [".gz", ".svgz"] then B.concat $ L.toChunks $ Gzip.decompress $ L.fromChunks [raw] else raw mime <- case (mimetype, respMime) of -- cgit v1.2.3