@@ -598,7 +598,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
598 Nothing -> []
598 Nothing -> []
599 Just img -> [unode "meta" ! [("name","cover"),
599 Just img -> [unode "meta" ! [("name","cover"),
600 ("content", toId img)] $ ()]
600 ("content", toId img)] $ ()]
601− , unode "docTitle'" $ unode "text" $ plainTitle
601+ , unode "docTitle" $ unode "text" $ plainTitle
602 , unode "navMap" $
602 , unode "navMap" $
603 tpNode : evalState (mapM (navPointNode navMapFormatter) secs) 1
603 tpNode : evalState (mapM (navPointNode navMapFormatter) secs) 1