@@ -231,10 +231,11 @@ writeDocx opts doc@(Pandoc meta _) = do
231231 ,("xmlns:dcmitype","http://purl.org/dc/dcmitype/")
232232 ,("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")]
233233 $ mknode "dc:title" [] (stringify $ docTitle meta)
234− : mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")]
235− (maybe "" id $ normalizeDate $ stringify $ docDate meta)
236− : mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] () -- put current time here
237− : map (mknode "dc:creator" [] . stringify) (docAuthors meta)
234+ : mknode "dc:creator" [] (intercalate "; " (map stringify $ docAuthors meta))
235+ : maybe []
236+ (\x -> [ mknode "dcterms:created" [("xsi:type","dcterms:W3CDTF")] $ x
237+ , mknode "dcterms:modified" [("xsi:type","dcterms:W3CDTF")] $ x
238+ ]) (normalizeDate $ stringify $ docDate meta)
238239 let docPropsEntry = toEntry docPropsPath epochtime $ renderXml docProps
239240
240241 let relsPath = "_rels/.rels"