branch: elpa/hyperdrive
commit 5a4f6b9607c5cbec31c263d13dae386a55e1939e
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (h/download-url) Fill disk-usage from GET request
---
hyperdrive.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 6be4b6f32b..f596558fed 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -449,7 +449,9 @@ in a directory. Otherwise, or with universal prefix
argument
(when (file-exists-p filename)
;; plz.el will not overwrite existing files: ensure there's no file
there.
(delete-file filename))
- (h/api 'get url :as `(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)))
;;;###autoload
(defun hyperdrive-write-buffer (entry &optional overwritep)
