diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 1a4bc4ca2..44dd168be 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -297,7 +297,8 @@ writeDocx opts doc = do map mkImageOverride imgs ++ [ mkMediaOverride (eRelativePath e) | e <- zEntries refArchive - , "word/media/" `isPrefixOf` eRelativePath e ] + , "word/media/" `isPrefixOf` eRelativePath e + , not ("/" `isSuffixOf` eRelativePath e) ] let mkDefaultNode (ext, mt) = mknode "Default" [("Extension",ext),("ContentType",mt)] () |