branch: elpa/hyperdrive
commit 866f85e632a894a8d5235a4520590b1e7c3d1554
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/api) Improve error displayed when installing the gateway
---
hyperdrive-lib.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 15867bc137..6b86b631b7 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -167,8 +167,12 @@ make the request."
;; could remove redundant calls to
;; `h//fill-latest-version' everywhere else.
(declare (indent defun))
+ ;; `h/ensure-gateway' will signal an error if the gateway is not responsive.
(unless (h/ensure-gateway)
- (h/error "Gateway not installed or incorrect version; request aborted"))
+ ;; NOTE: `h/error' displays "hyperdrive error: Installing gateway" in the
+ ;; echo area, which might be misinterpreted as an indication that the
+ ;; installation failed.
+ (error "Installing gateway"))
(pcase method
((and (or 'get 'head)
(guard (string-suffix-p "/" url)))
