diff options
Diffstat (limited to 'src/Text/Pandoc/Image.hs')
| -rw-r--r-- | src/Text/Pandoc/Image.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Image.hs b/src/Text/Pandoc/Image.hs index 634d37769..bf271f1b1 100644 --- a/src/Text/Pandoc/Image.hs +++ b/src/Text/Pandoc/Image.hs @@ -33,8 +33,8 @@ svgToPng opts bs = do (do (exit, out) <- pipeProcess Nothing "rsvg-convert" ["-f","png","-a","--dpi-x",dpi,"--dpi-y",dpi] bs - if exit == ExitSuccess - then return $ Right out - else return $ Left "conversion from SVG failed") + return $ if exit == ExitSuccess + then Right out + else Left "conversion from SVG failed") (\(e :: E.SomeException) -> return $ Left $ "check that rsvg-convert is in path.\n" <> tshow e) |