aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/EPUB.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-11-14 20:57:41 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-11-14 20:57:41 -0800
commitd29ef39f6f59cfa4cf8f9cc61c64b75d20b054b4 (patch)
treee6dd56df63ed4eaf5150de5d665d164e23416047 /src/Text/Pandoc/Writers/EPUB.hs
parentc9407f85a05dd51c7df6aa5db4647fd6234a5360 (diff)
downloadpandoc-d29ef39f6f59cfa4cf8f9cc61c64b75d20b054b4.tar.gz
EPUB writer: fix paths for cover image.
Closes #4069.
Diffstat (limited to 'src/Text/Pandoc/Writers/EPUB.hs')
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs4
1 files changed, 2 insertions, 2 deletions
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