diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-08-27 16:25:50 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-08-27 16:25:50 -0700 |
| commit | 7d0db790032bddd29db1eaeb36c9c25929431748 (patch) | |
| tree | dea1a0178aa52d887700521c3c27f8acf9c9616a | |
| parent | 8e5a79f264dd1ebe80e048397b6281e318d25e82 (diff) | |
| download | pandoc-7d0db790032bddd29db1eaeb36c9c25929431748.tar.gz | |
T.P.Image: svgToPng, change first parameter from WriterOptions to Int.
The information we need is just a DPI, so why require more?
| -rw-r--r-- | src/Text/Pandoc/Image.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Image.hs b/src/Text/Pandoc/Image.hs index e0c938938..ce3c0e41d 100644 --- a/src/Text/Pandoc/Image.hs +++ b/src/Text/Pandoc/Image.hs @@ -21,14 +21,14 @@ import qualified Control.Exception as E -- | Convert svg image to png. rsvg-convert -- is used and must be available on the path. -svgToPng :: WriterOptions +svgToPng :: Int -> L.ByteString -- ^ Input image as bytestring -> IO (Either Text L.ByteString) -svgToPng opts bs = do - let dpi = show $ writerDpi opts +svgToPng dpi bs = do + let dpi' = show dpi E.catch (do (exit, out) <- pipeProcess Nothing "rsvg-convert" - ["-f","png","-a","--dpi-x",dpi,"--dpi-y",dpi] + ["-f","png","-a","--dpi-x",dpi',"--dpi-y",dpi'] bs return $ if exit == ExitSuccess then Right out |