[nongnu] elpa/hyperdrive dfeed42902 08/21: Tidy: (h/dir--yank-media-image-handler) Pass explicit hyperdrive arg

[ELPA Syncer]

branch: elpa/hyperdrive
commit dfeed429020e9af3a7e61acc34b5ce4734d11a2a
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Tidy: (h/dir--yank-media-image-handler) Pass explicit hyperdrive arg
---
 hyperdrive-dir.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 3871ffc65a..1448e39e41 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -381,8 +381,9 @@ see Info node `(elisp)Yanking Media'."
     ;; TODO: Extend this to other media types?
     (cl-assert (and h/current-entry
                     (h//entry-directory-p h/current-entry)))
-    (let ((entry (h/read-entry :predicate #'h/writablep :latest-version t
-                               :force-prompt-drive nil)))
+    (let ((entry (h/read-entry
+                  :hyperdrive (h//context-hyperdrive :predicate #'h/writablep)
+                  :latest-version t)))
       (he/api 'put entry :body image :body-type 'binary
         ;; TODO: Pass MIME type in a header? hyper-gateway detects it for us.
         :then (lambda (_res) (h/open entry))