branch: elpa/hyperdrive
commit 81c4b9089561f2b504143b8ea262a268674a376c
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Tidy: (h/fill) Set then to 'sync by default
---
hyperdrive-lib.el | 4 ++--
hyperdrive.el | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 68096f73ec..9bb6d2cb51 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -466,7 +466,7 @@ When VERSION is nil, return latest version of ENTRY."
(setf (he/version entry) version)
(condition-case err
;; FIXME: Requests to out of range version currently hang.
- (h/fill entry :then 'sync)
+ (h/fill entry)
(plz-error
(pcase (plz-response-status (plz-error-response (caddr err)))
;; FIXME: If plz-error is a curl-error, this block will fail.
@@ -620,7 +620,7 @@ echo area when the request for the file is made."
(when messagep
(h/message "Opening <%s>..." (he/url entry)))))
-(cl-defun h/fill (entry &key queue then else)
+(cl-defun h/fill (entry &key queue (then 'sync) else)
"Fill ENTRY's metadata and call THEN.
If THEN is `sync', return the filled entry and ignore ELSE.
Otherwise, make request asynchronously and call THEN with the
diff --git a/hyperdrive.el b/hyperdrive.el
index f596558fed..2a1e0f4c50 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -451,7 +451,7 @@ in a directory. Otherwise, or with universal prefix
argument
(delete-file filename))
(h/api 'get url :as `(file ,filename))
;; Filling entry is necessary in order to update hyperdrive disk-usage.
- (h/fill (h/url-entry url) :then 'sync)))
+ (h/fill (h/url-entry url))))
;;;###autoload
(defun hyperdrive-write-buffer (entry &optional overwritep)
