@@ -260,10 +260,11 @@ writeEPUB opts doc@(Pandoc meta _) = do
260 else "no")] $ ()) :
260 else "no")] $ ()) :
261 map chapterRefNode chapterEntries)
261 map chapterRefNode chapterEntries)
262 , unode "guide" $
262 , unode "guide" $
263− [ unode "reference" !
263+ [ unode "reference" !
264− [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ () ]
264+ [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ ()
265− ++ [ unode "reference" !
265+ , unode "reference" !
266− [("type","cover"),("title","Cover"),("href","cover.xhtml")] $ () ]
266+ [("type","cover"),("title","Cover"),("href","cover.xhtml")] $ ()
268 let contentsEntry = mkEntry "content.opf" contentsData
269 let contentsEntry = mkEntry "content.opf" contentsData