diff options
| author | John MacFarlane <[email protected]> | 2024-02-22 23:11:13 -0600 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-02-22 23:11:13 -0600 |
| commit | 0a5ececcb466f28bf6b003fde71bc774267ae25b (patch) | |
| tree | 1681d8145b656148173e67fbc59d7e86535175dd | |
| parent | 5c6a8eb60799fa142640d5f64b8f312db85d5ea9 (diff) | |
EPUB writer: omit EPUB2-specific meta tag on EPUB3.
This caused a validation failure in epubs with cover images.
Closes #9493.
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 15b2625d5..d86985a47 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -1050,7 +1050,8 @@ metadataElement version md currentTime = rightsNodes = maybe [] (dcTag' "rights") $ epubRights md coverImageNodes = maybe [] (\img -> [unode "meta" ! [(metaprop,"cover"), - ("content",toId img)] $ ()]) + ("content",toId img)] $ () + | version == EPUB2]) $ epubCoverImage md modifiedNodes = [ unode "meta" ! [(metaprop, "dcterms:modified")] $ showDateTimeISO8601 currentTime | version == EPUB3 ] |