[nongnu] elpa/hyperdrive 5bdeecd0d4 16/21: Tidy: (hyperdrive-upload-file) Pass explicit hyperdrive arg

[ELPA Syncer]

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

    Tidy: (hyperdrive-upload-file) Pass explicit hyperdrive arg
---
 hyperdrive.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index c271a3a79c..d31846f63a 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -716,7 +716,7 @@ After successful upload, call THEN.  When QUEUE, use it."
   (declare (indent defun))
   (interactive (let ((filename (read-file-name "Upload file: " nil nil t)))
                  (list filename
-                       (h/read-entry :predicate #'h/writablep
+                       (h/read-entry :hyperdrive (h/read-hyperdrive 
#'h/writablep)
                                      :default-path (file-name-nondirectory 
filename)
                                      :latest-version t))))
   (let ((last-modified (let ((system-time-locale "C"))