diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-01-13 10:01:26 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-01-13 10:01:26 -0800 |
| commit | 94f23d8aef6c451d670aee37694e69e125ccfce5 (patch) | |
| tree | 2242ceb9bda4c23b92bbc8917843af5f3769a47a | |
| parent | af708abb047996b2c07537777c4c128381a77069 (diff) | |
ChunkedHTML writer: use fetchItem to get resources.
This ensures that they can be gotten from e.g. docx input.
| -rw-r--r-- | src/Text/Pandoc/Writers/ChunkedHTML.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/ChunkedHTML.hs b/src/Text/Pandoc/Writers/ChunkedHTML.hs index d71abe5e0..5efcfb0ab 100644 --- a/src/Text/Pandoc/Writers/ChunkedHTML.hs +++ b/src/Text/Pandoc/Writers/ChunkedHTML.hs @@ -24,7 +24,7 @@ import Text.Pandoc.Definition import Text.Pandoc.Options (WriterOptions(..)) import Text.Pandoc.Shared (stringify, tshow) import Text.Pandoc.Class (PandocMonad, getPOSIXTime, runPure, - readFileLazy, insertMedia, getMediaBag) + fetchItem, insertMedia, getMediaBag) import Text.Pandoc.MediaBag (mediaItems) import qualified Data.ByteString.Lazy as BL import Text.Pandoc.Chunks (splitIntoChunks, Chunk(..), ChunkedDoc(..), @@ -105,8 +105,8 @@ addMedia il@(Image _ _ (src,_)) | fp <- normalise (T.unpack src) , isRelative fp , not (".." `isInfixOf` fp) = do - bs <- readFileLazy fp - insertMedia fp Nothing bs + (bs, mbMime) <- fetchItem (T.pack fp) + insertMedia fp mbMime (BL.fromStrict bs) return il addMedia il = return il |