@@ -581,7 +581,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
581 navXhtmlFormatter n tit src subs = unode "li" !
581 navXhtmlFormatter n tit src subs = unode "li" !
582 [("id", "toc-li-" ++ show n)] $
582 [("id", "toc-li-" ++ show n)] $
583 (unode "a" ! [("href",src)]
583 (unode "a" ! [("href",src)]
584− $ (unode "span" tit))
584+ $ tit)
585 : case subs of
585 : case subs of
587 (_:_) -> [unode "ol" ! [("class","toc")] $ subs]
587 (_:_) -> [unode "ol" ! [("class","toc")] $ subs]