aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-11-14 21:06:24 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-11-14 21:06:24 -0800
commitc2a68ad7632cfa0ee00cd7bac9c7ee58f9947abd (patch)
tree3d6caa11eaf6f5de865bd2c2978310217870f04e /src/Text/Pandoc
parentd29ef39f6f59cfa4cf8f9cc61c64b75d20b054b4 (diff)
downloadpandoc-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.hs2
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"):