@@ -440,10 +440,9 @@ writeDocx opts doc@(Pandoc meta _) = do
440 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
440 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
441 $ mknode "dc:title" [] (stringify $ docTitle meta)
441 $ mknode "dc:title" [] (stringify $ docTitle meta)
442 : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
442 : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
444− (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x
443+ : (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] x
445− , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x
444+ , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] x
446− ]) (normalizeDate $ stringify $ docDate meta)
445+ ]) (formatTime defaultTimeLocale "%FT%XZ" utctime)
447 let docPropsEntry = toEntry docPropsPath epochtime $ renderXml docProps
446 let docPropsEntry = toEntry docPropsPath epochtime $ renderXml docProps
449 let relsPath = "_rels/.rels"
448 let relsPath = "_rels/.rels"