branch: elpa/hyperdrive
commit c0b61c94fc741da62c12bb69502024b52831692c
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (hyperdrive-hyper-gateway-ushin-version) Use
h/gateway-version-expected
---
hyperdrive.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 5cf588e95e..b185c739a4 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -116,6 +116,8 @@ Gateway must be running."
(condition-case err
(let* ((url (format "http://localhost:%d/"; h/hyper-gateway-ushin-port))
(version (alist-get 'version (plz 'get url :as #'json-read))))
+ (when (equal version h/gateway-version-expected)
+ (setf h/gateway-version-correct-p t))
(when (called-interactively-p 'any)
(h/message "hyper-gateway-ushin version %s" version))
version)
