@@ -84,10 +84,10 @@ handleImage' :: WriterOptions
8484 -> FilePath
8585 -> Inline
8686 -> IO Inline
87−handleImage' opts tmpdir (Image ils (src,tit)) = do
87+handleImage' opts tmpdir (Image attr ils (src,tit)) = do
8888 exists <- doesFileExist src
8989 if exists
90− then return $ Image ils (src,tit)
90+ then return $ Image attr ils (src,tit)
9191 else do
9292 res <- fetchItem' (writerMediaBag opts) (writerSourceURL opts) src
9393 case res of
@@ -97,20 +97,20 @@ handleImage' opts tmpdir (Image ils (src,tit)) = do
9797 let basename = showDigest $ sha1 $ BL.fromChunks [contents]
9898 let fname = tmpdir </> basename <.> ext
9999 BS.writeFile fname contents
100− return $ Image ils (fname,tit)
100+ return $ Image attr ils (fname,tit)
101101 _ -> do
102102 warn $ "Could not find image `" ++ src ++ "', skipping..."
103− return $ Image ils (src,tit)
103+ return $ Image attr ils (src,tit)
104104handleImage' _ _ x = return x
105105
106106convertImages :: FilePath -> Inline -> IO Inline
107−convertImages tmpdir (Image ils (src, tit)) = do
107+convertImages tmpdir (Image attr ils (src, tit)) = do
108108 img <- convertImage tmpdir src
109109 newPath <-
110110 case img of
111111 Left e -> src <$ warn e
112112 Right fp -> return fp
113− return (Image ils (newPath, tit))
113+ return (Image attr ils (newPath, tit))
114114convertImages _ x = return x
115115
116116-- Convert formats which do not work well in pdf to png