@@ -584,7 +584,7 @@ expandDrawingId s = do
584 target <- asks (lookupRelationship s . envRelationships)
584 target <- asks (lookupRelationship s . envRelationships)
585 case target of
585 case target of
586 Just filepath -> do
586 Just filepath -> do
587− bytes <- asks (lookup (combine "word" filepath) . envMedia)
587+ bytes <- asks (lookup ("word/" ++ filepath) . envMedia)
588 case bytes of
588 case bytes of
589 Just bs -> return (filepath, bs)
589 Just bs -> return (filepath, bs)
590 Nothing -> throwError DocxError
590 Nothing -> throwError DocxError