Merge pull request #1472 from mpickering/master

Shared: Added function insertMedia which is an alias for M.insert

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
 --