@@ -274,9 +274,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do
274 let navXhtmlFormatter :: Int -> String -> String -> [Element] -> Element
274 let navXhtmlFormatter :: Int -> String -> String -> [Element] -> Element
275 navXhtmlFormatter n tit src subs = unode "li" !
275 navXhtmlFormatter n tit src subs = unode "li" !
276 [("id", "toc-li-" ++ show n)] $
276 [("id", "toc-li-" ++ show n)] $
277− unode "a" ! [("href",src)] $
277+ (unode "a" ! [("href",src)]
278− unode "span" tit :
278+ $ (unode "span" tit))
279− case subs of
279+ : case subs of
281 (_:_) -> [unode "ol" subs]
281 (_:_) -> [unode "ol" subs]