Docx writer: Use rIdNN identifiers for r:embed in images.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 9d160598f..069a5f6eb 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -629,7 +629,7 @@ inlineToOpenXML opts (Image alt (src, tit)) = do
                             Just (i,img) -> return (i, imageSize img)
                             Nothing -> do
                               img <- liftIO $ B.readFile src
-                              ident' <- getUniqueId
+                              ident' <- ("rId"++) `fmap` getUniqueId
                               let size'  = imageSize img
                               modify $ \st -> st{
                                  stImages = M.insert src (ident',img) $ stImages st }