@@ -448,7 +448,12 @@ writeEPUB opts doc@(Pandoc meta _) = do
448448 [("properties","nav") | epub3 ]) $ ()
449449 ] ++
450450 map chapterNode (cpgEntry ++ (tpEntry : chapterEntries)) ++
451− map pictureNode (cpicEntry ++ picEntries) ++
451+ (case cpicEntry of
452+ [] -> []
453+ (x:_) -> [add_attrs
454+ [Attr (unqual "properties") "cover-image" | epub3]
455+ (pictureNode x)]) ++
456+ map pictureNode picEntries ++
452457 map fontNode fontEntries
453458 , unode "spine" ! [("toc","ncx")] $
454459 case epubCoverImage metadata of