branch: elpa/hyperdrive
commit ba3c998df3d9a971d6b1d19e7542e0c9ef01cc0f
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h/install) Only set h/install-in-progress-p if urls-and-hashes
For example, if system-type is not supported in
h/gateway-urls-and-hashes, the installation should not be considered
"in-progress".
---
hyperdrive.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 8eb21d7416..8166239fe3 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1311,7 +1311,6 @@ If FORCEP, don't prompt for confirmation before
downloading."
(when (h//hyper-gateway-ushin-path)
(unless (yes-or-no-p "Download and reinstall/upgrade
hyper-gateway-ushin? ")
(user-error "Not downloading; aborted"))))
- (setf h/install-in-progress-p t)
(let ((urls-and-hashes (alist-get system-type h/gateway-urls-and-hashes)))
(cl-labels
((try ()
@@ -1357,6 +1356,7 @@ If FORCEP, don't prompt for confirmation before
downloading."
(if (h//gateway-ready-p)
"hyperdrive-restart"
"hyperdrive-start"))))
+ (setf h/install-in-progress-p t)
(try))))
(defun h/restart ()
