[elpa] externals/dape 5b60dba042 6/8: Kill server process when failing to connect to it

[ELPA Syncer]

branch: externals/dape
commit 5b60dba0421387482f404053a79cd1222bfd668a
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Kill server process when failing to connect to it
---
 dape.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index bb4214ce9a..84d1eab3f8 100644
--- a/dape.el
+++ b/dape.el
@@ -1570,9 +1570,10 @@ Starts a new process as per request of the debug 
adapter."
       (sleep-for 0 100)
       (setq retries (1- retries)))
     (if (zerop retries)
-        (user-error "Unable to connect to server %s:%d"
-                    host
-                    (plist-get config 'port))
+        (progn (dape-kill)
+               (user-error "Unable to connect to server %s:%d"
+                           host
+                           (plist-get config 'port)))
       (dape--debug 'info "Connection to server established %s:%s"
                    host (plist-get config 'port)))
     (dape--setup process config)))