diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-11-02 21:12:56 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-11-02 21:12:56 -0700 |
| commit | afa5a4da6779ff448868cb08ce5a9cfdf1d1b845 (patch) | |
| tree | bc1cbbe8ffdf36076c6f5af7c0d1cca1cc43e4da /src/Text | |
| parent | e9542a60b5d021fd99983767be156f05a9942d27 (diff) | |
| download | pandoc-afa5a4da6779ff448868cb08ce5a9cfdf1d1b845.tar.gz | |
EPUB: Fixed invalid nesting problem in nav.xhtml.
Diffstat (limited to 'src/Text')
| -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] |