aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-03-20 13:10:03 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-03-20 13:10:03 -0700
commitff9af6c9e50bbe6d6bc58427338b703513622094 (patch)
tree8c74a9a0302d65911ed2216d5ed36405e8d7a1c8 /src/Text/Pandoc/Writers
parent375c53869d148cc0ab3e93bf5f35a51ab0d24e29 (diff)
downloadpandoc-ff9af6c9e50bbe6d6bc58427338b703513622094.tar.gz
EPUB writer: Don't add dc:creator tags if present in epub metadata.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-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 c7b9d6ae7..d92103902 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -390,7 +390,7 @@ metadataElement version metadataXML uuid lang title authors date currentTime mbC
[ unode "dc:identifier" ! [("id","BookId")] $ show uuid |
not (elt `contains` "identifier") ] ++
[ unode "dc:creator" ! [("opf:role","aut") | version == EPUB2]
- $ a | a <- authors ] ++
+ $ a | a <- authors, not (elt `contains` "creator") ] ++
[ unode "dc:date" date | not (elt `contains` "date") ] ++
[ unode "meta" ! [("property", "dcterms:modified")] $
(showDateTimeISO8601 currentTime) | version == EPUB3] ++