diff options
| author | John MacFarlane <[email protected]> | 2023-06-19 11:17:34 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-06-19 11:18:30 -0700 |
| commit | 83fcd0031a100bebad58a193e3b0bd69d4023f5e (patch) | |
| tree | c8aca947ec8644b40aaeed01116e5e5a3a1d8978 | |
| parent | 725ec09a104d8ad486989f32a4c55d9d731629ea (diff) | |
Add Extracting log message for `--extract-media`.
This message will also be triggered when media is being
extracted to a temporary location, e.g. in PDF production.
| -rw-r--r-- | src/Text/Pandoc/Class/IO.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Class/IO.hs b/src/Text/Pandoc/Class/IO.hs index 534878a9e..a4b7d1333 100644 --- a/src/Text/Pandoc/Class/IO.hs +++ b/src/Text/Pandoc/Class/IO.hs @@ -226,6 +226,7 @@ writeMedia dir (fp, _mt, bs) = do -- we normalize to get proper path separators for the platform let fullpath = normalise $ dir </> unEscapeString fp liftIOError (createDirectoryIfMissing True) (takeDirectory fullpath) + report $ Extracting (T.pack fullpath) logIOError $ BL.writeFile fullpath bs -- | If the given Inline element is an image with a @src@ path equal to |