summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Docx/Parse.hs
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-09-02 13:45:01 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-09-02 13:45:01 -0400
commit4ef850ded53c7e2bd815dbcb3d2e2b1af3b3de69 (patch)
treea9cddf0e5b9f834f89476d47c73d6307d243da83 /src/Text/Pandoc/Readers/Docx/Parse.hs
parent3533218d6d7e15384262bf478d5ebf5e191f96ff (diff)
Docx reader: Fix window path for image lookup.
Don't use os-sensitive "combine", since we always want the paths in our zip-archive to use forward-slashes.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx/Parse.hs')
-rw-r--r--src/Text/Pandoc/Readers/Docx/Parse.hs2
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