From afa5a4da6779ff448868cb08ce5a9cfdf1d1b845 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 2 Nov 2012 21:12:56 -0700 Subject: EPUB: Fixed invalid nesting problem in nav.xhtml. --- src/Text/Pandoc/Writers/EPUB.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index fb4429f80..e9b13c979 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -274,9 +274,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do let navXhtmlFormatter :: Int -> String -> String -> [Element] -> Element navXhtmlFormatter n tit src subs = unode "li" ! [("id", "toc-li-" ++ show n)] $ - unode "a" ! [("href",src)] $ - unode "span" tit : - case subs of + (unode "a" ! [("href",src)] + $ (unode "span" tit)) + : case subs of [] -> [] (_:_) -> [unode "ol" subs] -- cgit v1.2.3