@@ -160,7 +160,7 @@ import Text.Pandoc.Writers.Haddock
160160import Text.Pandoc.Writers.Custom
161161import Text.Pandoc.Templates
162162import Text.Pandoc.Options
163−import Text.Pandoc.Shared (safeRead, warn)
163+import Text.Pandoc.Shared (safeRead, warn, MediaBag)
164164import Data.Aeson
165165import qualified Data.ByteString.Lazy as BL
166166import Data.List (intercalate)
@@ -204,12 +204,12 @@ markdown o s = do
204204 return doc
205205
206206data Reader = StringReader (ReaderOptions -> String -> IO Pandoc)
207− | ByteStringReader (ReaderOptions -> BL.ByteString -> IO Pandoc)
207+ | ByteStringReader (ReaderOptions -> BL.ByteString -> IO (Pandoc, MediaBag))
208208
209209mkStringReader :: (ReaderOptions -> String -> Pandoc) -> Reader
210210mkStringReader r = StringReader (\o s -> return $ r o s)
211211
212−mkBSReader :: (ReaderOptions -> BL.ByteString -> Pandoc) -> Reader
212+mkBSReader :: (ReaderOptions -> BL.ByteString -> (Pandoc, MediaBag)) -> Reader
213213mkBSReader r = ByteStringReader (\o s -> return $ r o s)
214214
215215-- | Association list of formats and readers.