@@ -528,10 +528,8 @@ writeEPUB opts doc@(Pandoc meta _) = do
528 case lookupMeta "title" meta of
528 case lookupMeta "title" meta of
529 Just _ -> "yes"
529 Just _ -> "yes"
530 Nothing -> "no")] $ ()) :
530 Nothing -> "no")] $ ()) :
531− (unode "itemref" ! [("idref", "nav")
531+ [unode "itemref" ! [("idref", "nav")] $ ()
532− ,("linear", if writerTableOfContents opts
532+ | writerTableOfContents opts ] ++
535 map chapterRefNode chapterEntries)
533 map chapterRefNode chapterEntries)
536 , unode "guide" $
534 , unode "guide" $
537 [ unode "reference" !
535 [ unode "reference" !