From 4b953720c84cec5fb219376a22bb6bc5a0cc0a25 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Tue, 13 Dec 2016 21:02:57 -0500
Subject: Class: Add insertDeferredMedia function.

---
 src/Text/Pandoc/Class.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index 836c57b2e..43721a1f1 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -46,6 +46,7 @@ module Text.Pandoc.Class ( PandocMonad(..)
                          , getMediaBag
                          , setMediaBag
                          , insertMedia
+                         , insertDeferredMedia
                          , fetchItem
                          , getInputFiles
                          , getOutputFile
@@ -147,6 +148,12 @@ insertMedia fp mime bs = do
   let mb' = MB.insertMedia fp mime bs mb
   modifyCommonState $ \st -> st{stDeferredMediaBag =DeferredMediaBag mb' dm }
 
+insertDeferredMedia :: PandocMonad m => FilePath -> m ()
+insertDeferredMedia fp = do
+  (DeferredMediaBag mb dm) <- getsCommonState stDeferredMediaBag
+  modifyCommonState $
+    \st -> st{stDeferredMediaBag = DeferredMediaBag mb ((DeferredMediaPath fp) : dm)}
+
 getInputFiles :: PandocMonad m => m (Maybe [FilePath])
 getInputFiles = getsCommonState stInputFiles
 
-- 
cgit v1.2.3