diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 46310e398..b6527c6c8 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -206,7 +206,7 @@ writeEPUB opts doc@(Pandoc meta _) = do , unode "docTitle" $ unode "text" $ plainTitle , unode "navMap" $ zipWith3 navPointNode (tpEntry : chapterEntries) [1..(length chapterEntries + 1)] - ("Title Page" : map (\(Pandoc m _) -> + (plainTitle : map (\(Pandoc m _) -> plainify $ docTitle m) chapters) ] let tocEntry = mkEntry "toc.ncx" tocData |