diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-11-14 21:06:24 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-11-14 21:06:24 -0800 |
| commit | c2a68ad7632cfa0ee00cd7bac9c7ee58f9947abd (patch) | |
| tree | 3d6caa11eaf6f5de865bd2c2978310217870f04e /src/Text/Pandoc | |
| parent | d29ef39f6f59cfa4cf8f9cc61c64b75d20b054b4 (diff) | |
| download | pandoc-c2a68ad7632cfa0ee00cd7bac9c7ee58f9947abd.tar.gz | |
EPUB writer: Fixed path for cover image.
It was previously `media/media/imagename`, and should have
been `media/imagename`.
Diffstat (limited to 'src/Text/Pandoc')
| -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 7062fd925..2ed397d36 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -434,7 +434,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do case epubCoverImage metadata of Nothing -> return ([],[]) Just img -> do - let coverImage = "media/" ++ takeFileName img + let coverImage = takeFileName img cpContent <- lift $ writeHtml opts'{ writerVariables = ("coverpage","true"): |