diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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] |