aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-11-02 21:12:56 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-11-02 21:12:56 -0700
commitafa5a4da6779ff448868cb08ce5a9cfdf1d1b845 (patch)
treebc1cbbe8ffdf36076c6f5af7c0d1cca1cc43e4da /src/Text/Pandoc
parente9542a60b5d021fd99983767be156f05a9942d27 (diff)
downloadpandoc-afa5a4da6779ff448868cb08ce5a9cfdf1d1b845.tar.gz
EPUB: Fixed invalid nesting problem in nav.xhtml.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/EPUB.hs6
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]