aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-08-31 12:08:17 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-08-31 12:08:17 -0700
commit54df49335a652710f10f4fc183265d1ab1d51d77 (patch)
tree58899d76b637788b3a13f09359196f00661e5658 /src
parentd1948ce0128cea9b4eb121e61de9566b9cab203b (diff)
downloadpandoc-54df49335a652710f10f4fc183265d1ab1d51d77.tar.gz
EPUB writer: Don't use opf:title-type for epub2.
It is not supported and epubcheck complains.
Diffstat (limited to 'src')
-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 ffd5bf101..7357da683 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -731,8 +731,8 @@ metadataElement version md currentTime =
toTitleNode id' title
| version == EPUB2 = [dcNode "title" !
(("id",id') :
- maybe [] (\x -> [("opf:file-as",x)]) (titleFileAs title) ++
- maybe [] (\x -> [("opf:title-type",x)]) (titleType title)) $
+ -- note: EPUB2 doesn't accept opf:title-type
+ maybe [] (\x -> [("opf:file-as",x)]) (titleFileAs title)) $
titleText title]
| otherwise = [dcNode "title" ! [("id",id')] $ titleText title]
++