branch: elpa/hyperdrive
commit 1e439d827a33374d202adbb3795fd1f273e1b8ae
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (hyperdrive-hyper-gateway-ushin-version) Return version
---
hyperdrive.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 7ccd14aa85..5cf588e95e 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -114,10 +114,11 @@ Customize behavior with
`hyperdrive-gateway-process-type', which see."
Gateway must be running."
(interactive)
(condition-case err
- (let ((url (format "http://localhost:%d/"; h/hyper-gateway-ushin-port)))
- ;; TODO: Make this also return the version.
- (h/message "hyper-gateway-ushin version %s"
- (alist-get 'version (plz 'get url :as #'json-read))))
+ (let* ((url (format "http://localhost:%d/"; h/hyper-gateway-ushin-port))
+ (version (alist-get 'version (plz 'get url :as #'json-read))))
+ (when (called-interactively-p 'any)
+ (h/message "hyper-gateway-ushin version %s" version))
+ version)
(plz-error (h/api-default-else nil (caddr err)))))
;;;###autoload
