diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-09-27 16:21:17 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-09-27 16:21:17 -0700 |
commit | fe6d43b3e0c3d7c9f4742873e33e54237f4efe9f (patch) | |
tree | 633d2867ff088e5811d652a208fb03ddb534efce /src/Text/Pandoc | |
parent | 9c4e33f085c40a4cbf221c5b76830fcf062880a2 (diff) | |
parent | a6eead7f261ed47269e7f7e45b5774d8620e602b (diff) | |
download | pandoc-fe6d43b3e0c3d7c9f4742873e33e54237f4efe9f.tar.gz |
Merge pull request #1601 from jkr/windowsfix
Fix path-slashes inside archive for windows
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index e7a6c3ffb..2945a1eda 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -584,7 +584,7 @@ expandDrawingId s = do target <- asks (lookupRelationship s . envRelationships) case target of Just filepath -> do - bytes <- asks (lookup (combine "word" filepath) . envMedia) + bytes <- asks (lookup ("word/" ++ filepath) . envMedia) case bytes of Just bs -> return (filepath, bs) Nothing -> throwError DocxError |