@@ -152,7 +152,7 @@ writeEPUB mbStylesheet fonts opts doc@(Pandoc meta _) = do
152152 Pandoc meta [Plain t]
153153 let plainTitle = plainify $ docTitle meta
154154 let plainAuthors = map plainify $ docAuthors meta
155− let plainDate = plainify $ docDate meta
155+ let plainDate = maybe "" id $ normalizeDate $ stringify $ docDate meta
156156 let contentsData = fromString $ ppTopElement $
157157 unode "package" ! [("version","2.0")
158158 ,("xmlns","http://www.idpf.org/2007/opf")