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.
This commit is contained in:
Jesse Rosenthal 2014-09-02 13:45:01 -04:00
parent 3533218d6d
commit 4ef850ded5

View file

@ -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