diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-01 14:47:31 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-01 14:47:31 -0700 |
commit | 1643322cd157dc1259ea2ed98612bd3bd0fb9e66 (patch) | |
tree | 5d025374bd3cbde103e61d58ee0a24df6640665c | |
parent | aa19e0b88d8a1a2a80fe365de605da8a96a7fd3f (diff) | |
download | consfigurator-1643322cd157dc1259ea2ed98612bd3bd0fb9e66.tar.gz |
also propagate list of required systems
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/deployment.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 87da731..0f90a5a 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -171,5 +171,7 @@ PROPERTIES, like DEPLOY-THESE." (ensure-cons connection)))) (defun %propagate-hostattrs (host) + (dolist (system (propspec-systems (host-propspec host))) + (pushnew system (slot-value (host-propspec *host*) 'systems))) (dolist (attr (getf (hostattrs host) :data)) (push-hostattrs :data attr))) |