@@ -159,6 +159,7 @@ convertImage tmpdir fname =
159 Just "image/png" -> doNothing
159 Just "image/png" -> doNothing
160 Just "image/jpeg" -> doNothing
160 Just "image/jpeg" -> doNothing
161 Just "application/pdf" -> doNothing
161 Just "application/pdf" -> doNothing
162+ Just "image/svg+xml" -> return $ Left "conversion from svg not supported"
162 _ -> JP.readImage fname >>= \res ->
163 _ -> JP.readImage fname >>= \res ->
163 case res of
164 case res of
164 Left e -> return $ Left e
165 Left e -> return $ Left e