[nongnu] elpa/hyperdrive de0d6f98ec 2/8: Change: (hyperdrive-download-url) Make async

[ELPA Syncer]

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

    Change: (hyperdrive-download-url) Make async
---
 hyperdrive.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index d27a80426a..72dd2b97ca 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -464,11 +464,15 @@ in a directory.  Otherwise, or with universal prefix 
argument
     ;; TODO(plz v0.10.0): In an upcoming version of `plz', nonexistent parent
     ;; directories will be created for us.  At that point, remove this line.
     (make-directory (file-name-parent-directory filename) t)
-    (h/api 'get url :as `(file ,filename))
-    ;; TODO: If plz adds support for getting response headers when downloading
-    ;; as a file (<https://github.com/alphapapa/plz.el/issues/61>), use it 
here.
-    ;; Filling entry is necessary in order to update hyperdrive disk-usage.
-    (he/fill (h/url-entry url))))
+    (h/api 'get url :as `(file ,filename)
+      :then (lambda (_)
+              (h/message "Downloaded `%s' to `%s'." url filename)
+              ;; TODO: If plz adds support for getting response headers when 
downloading
+              ;; as a file (<https://github.com/alphapapa/plz.el/issues/61>), 
use it here.
+              ;; Filling entry is necessary in order to update hyperdrive 
disk-usage.
+              (he/fill (h/url-entry url)))
+      :else (lambda (plz-error)
+              (h/message "Unable to download: %s: %S" url plz-error)))))
 
 ;;;###autoload
 (defun hyperdrive-write-buffer (entry &optional overwritep)