diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2014-07-31 11:04:40 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2014-07-31 11:05:35 -0700 |
| commit | 00662faefbca0b9889d3d79dbb2985350356d18a (patch) | |
| tree | b0f6c39c3c91bc247c970297b4afa5a630d6d410 /src/Text/Pandoc/Writers | |
| parent | 6e96f8b4783d46e2b9e245bf3144f023c5296a38 (diff) | |
| download | pandoc-00662faefbca0b9889d3d79dbb2985350356d18a.tar.gz | |
Made MediaBag a newtype, and added mime type information to media.
Shared now exports functions for interacting with a MediaBag:
- `emptyMediaBag`
- `lookuMedia`
- `insertMedia`
- `mediaDirectory`
- `extractMediaBag`
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 1f222b8b8..62dd70e73 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -793,7 +793,7 @@ transformInline opts mediaRef (Image lab (src,tit)) = do return $ Image lab (newsrc, tit) transformInline opts _ (x@(Math _ _)) | WebTeX _ <- writerHTMLMathMethod opts = do - raw <- makeSelfContained M.empty Nothing $ writeHtmlInline opts x + raw <- makeSelfContained emptyMediaBag Nothing $ writeHtmlInline opts x return $ RawInline (Format "html") raw transformInline opts mediaRef (RawInline fmt raw) | fmt == Format "html" = do |