From d29ef39f6f59cfa4cf8f9cc61c64b75d20b054b4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 14 Nov 2017 20:57:41 -0800
Subject: EPUB writer: fix paths for cover image.
Closes #4069.
---
src/Text/Pandoc/Writers/EPUB.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/Text')
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index e943ef17f..7062fd925 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -667,7 +667,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
[ unode "reference" !
[("type","cover")
,("title","Cover")
- ,("href","cover.xhtml")] $ ()
+ ,("href","text/cover.xhtml")] $ ()
| isJust (epubCoverImage metadata)
]
]
@@ -770,7 +770,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
,("hidden","hidden")] $
[ unode "ol" $
[ unode "li"
- [ unode "a" ! [("href", "cover.xhtml")
+ [ unode "a" ! [("href", "text/cover.xhtml")
,("epub:type", "cover")] $
"Cover"] |
epubCoverImage metadata /= Nothing
--
cgit v1.2.3