@@ -422,7 +422,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
422422 tpContent <- lift $ writeHtml opts'{
423423 writerVariables = ("titlepage","true"):vars }
424424 (Pandoc meta [])
425− let tpEntry = mkEntry "title_page.xhtml" tpContent
425+ let tpEntry = mkEntry "text/title_page.xhtml" tpContent
426426
427427 -- handle pictures
428428 -- mediaRef <- P.newIORef []
@@ -658,7 +658,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
658658
659659 let tpNode = unode "navPoint" ! [("id", "navPoint-0")] $
660660 [ unode "navLabel" $ unode "text" (stringify $ docTitle' meta)
661− , unode "content" ! [("src","title_page.xhtml")] $ () ]
661+ , unode "content" ! [("src","text/title_page.xhtml")] $ () ]
662662
663663 navMap <- lift $ evalStateT (mapM (navPointNode navMapFormatter) secs) 1
664664 let tocData = UTF8.fromStringLazy $ ppTopElement $