branch: elpa/hyperdrive
commit 4cd3643f6e4db7e14b70a2351465e42f28ffb8ed
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (hyperdrive-mirror) Use correct keyword argument
---
hyperdrive-mirror.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 1dbd3ae93c..6e48471750 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -248,8 +248,8 @@ filter and set NO-CONFIRM to t."
(if no-confirm
(let ((reporter (make-progress-reporter "Checking files" 0 num-of)))
(h/mirror--check-items source files hyperdrive target-dir
- :progress-fn (lambda ()
- (progress-reporter-update
reporter (cl-incf num-filled)))
+ :progress-fun (lambda ()
+ (progress-reporter-update
reporter (cl-incf num-filled)))
:then (lambda (items)
(progress-reporter-done reporter)
(h//mirror items parent-entry))))
@@ -271,7 +271,7 @@ filter and set NO-CONFIRM to t."
;; TODO: Add command to clear plz queue.
(h/mirror--check-items
source files hyperdrive target-dir
- :progress-fn #'update-progress
+ :progress-fun #'update-progress
:then (lambda (items)
(h/mirror--metadata-finally
buffer
