[nongnu] elpa/hyperdrive ac70ecfaa1 1/7: Change: (h/stop) Error if gateway already stopped

[ELPA Syncer]

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

    Change: (h/stop) Error if gateway already stopped
---
 hyperdrive.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 71b8e87ede..42959f21f6 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -120,7 +120,11 @@ which see."
 Calls function set in option `hyperdrive-gateway-stop-function',
 which see."
   (interactive)
-  (funcall h/gateway-stop-function)
+  (cond
+   ((and (not (h//gateway-ready-p)) (not (h/gateway-live-p)))
+    (h/user-error "Gateway already stopped"))
+   (t
+    (funcall h/gateway-stop-function)))
   (when (timerp h//gateway-starting-timer)
     (cancel-timer h//gateway-starting-timer))
   (h//gateway-wait-for-dead))