diff options
Diffstat (limited to 'src/Text/Pandoc/MediaBag.hs')
| -rw-r--r-- | src/Text/Pandoc/MediaBag.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Text/Pandoc/MediaBag.hs b/src/Text/Pandoc/MediaBag.hs index f1e811232..94512b71d 100644 --- a/src/Text/Pandoc/MediaBag.hs +++ b/src/Text/Pandoc/MediaBag.hs @@ -19,6 +19,7 @@ module Text.Pandoc.MediaBag ( lookupMedia, insertMedia, mediaDirectory, + mediaItems ) where import Prelude import qualified Data.ByteString.Lazy as BL @@ -66,3 +67,8 @@ mediaDirectory :: MediaBag -> [(String, MimeType, Int)] mediaDirectory (MediaBag mediamap) = M.foldrWithKey (\fp (mime,contents) -> ((Posix.joinPath fp, mime, fromIntegral $ BL.length contents):)) [] mediamap + +mediaItems :: MediaBag -> [(String, MimeType, BL.ByteString)] +mediaItems (MediaBag mediamap) = + M.foldrWithKey (\fp (mime,contents) -> + ((Posix.joinPath fp, mime, contents):)) [] mediamap |