aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Shared.hs9
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 81aa6cf5a..ee48f5bc1 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -50,6 +50,7 @@ module Text.Pandoc.Shared (
tabFilter,
-- * Media Handling
MediaBag,
+ insertMedia,
-- * Date/time
normalizeDate,
-- * Pandoc block and inline list processing
@@ -292,9 +293,15 @@ tabFilter tabStop =
---
-- | A map of media paths to their binary representations.
-
type MediaBag = M.Map String BL.ByteString
+-- | Insert a media item into a `MediaBag`
+insertMedia :: FilePath
+ -> BL.ByteString
+ -> MediaBag
+ -> MediaBag
+insertMedia = M.insert
+
--
-- Date/time
--