diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-04 15:40:06 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-04 15:48:02 -0700 |
| commit | 4d5135dc67156926621845034af9409532f8ea71 (patch) | |
| tree | af91894dcfb1cfd9f633e622192f09276c36d0e9 /src | |
| parent | dd578c43c852ffbc2196359be441139f7c2c12c2 (diff) | |
| download | consfigurator-4d5135dc67156926621845034af9409532f8ea71.tar.gz | |
fix call to %UNION-PROPSPEC-INTO-HOST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
| -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 29685fb..7b42d7a 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -135,7 +135,9 @@ Useful to have one host act a controller, applying properties to other hosts. Also useful to set up VMs, chroots, disk images etc. on localhost." (:preprocess (list (preprocess-connections connections) - (%union-propspec-into-host host additional-properties))) + (if additional-properties + (%union-propspec-into-host host additional-properties) + host))) (:hostattrs (declare (ignore connections additional-properties)) (%propagate-hostattrs host)) |