diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:48:37 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 19:07:10 -0700 |
commit | ac8af44a2b999e492d247f87262878edfc8c6b6b (patch) | |
tree | 829465fc8834a1cd66d3c8a0fab2f41210a2146b | |
parent | 1b6a8a54da3941fb22ade17836c7ab1608422450 (diff) | |
download | consfigurator-ac8af44a2b999e492d247f87262878edfc8c6b6b.tar.gz |
%CONSFIGURE: don't prepend :LOCAL when a connection exists
This was breaking DEPLOYS, DEPLOYS-THESE in certain cases.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/deployment.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 693afb9..5f93f33 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -40,7 +40,9 @@ preprocessed." (apply-propspec (host-propspec *host*))) (connection-teardown *connection*))))) (let ((*host* (preprocess-host host))) - (connect (if (eq :local (caar connections)) + ;; prepend :LOCAL only if it's not already there and there is no + ;; connection already established + (connect (if (or *connection* (eq :local (caar connections))) connections (cons '(:local) connections)))))) |