diff options
| author | Marc Schreiber <marc.schreiber@fh-aachen.de> | 2017-04-20 11:11:01 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-20 23:09:08 +0200 |
| commit | 03cb05f4c614f08600bcd8e90a7fd1ca13ae33a2 (patch) | |
| tree | 8b89067a627f3b05358fb14e69036cc512b85110 /src/Text/Pandoc/ImageSize.hs | |
| parent | 5c44fd554fbebc2e01a0aa9f569468789f353bf4 (diff) | |
| download | pandoc-03cb05f4c614f08600bcd8e90a7fd1ca13ae33a2.tar.gz | |
Improve SVG image size code.
The old code made some unwise assumptions about
how the svg file would look.
See #3580.
Diffstat (limited to 'src/Text/Pandoc/ImageSize.hs')
| -rw-r--r-- | src/Text/Pandoc/ImageSize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/ImageSize.hs b/src/Text/Pandoc/ImageSize.hs index a0800e499..4d914a10c 100644 --- a/src/Text/Pandoc/ImageSize.hs +++ b/src/Text/Pandoc/ImageSize.hs @@ -116,7 +116,7 @@ imageType img = case B.take 4 img of _ -> mzero findSvgTag :: ByteString -> Bool -findSvgTag img = B.null $ snd (B.breakSubstring img "<svg") +findSvgTag img = "<svg" `B.isInfixOf` img || "<SVG" `B.isInfixOf` img imageSize :: WriterOptions -> ByteString -> Either String ImageSize imageSize opts img = |