diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:38:08 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:38:08 -0700 |
| commit | 8ba03fdbc12ba07021785c7bd52f2be387b76693 (patch) | |
| tree | bae6c0945d91bb226b01f99cea9c0f708f8c4f1d /src/deployment.lisp | |
| parent | dbebd8a7fbe36dd91ea887d8b686af3405fc80a9 (diff) | |
| download | consfigurator-8ba03fdbc12ba07021785c7bd52f2be387b76693.tar.gz | |
DEPLOY, DEPLOY-THESE: accept string for HOST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 221b89b..ee006fb 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -108,7 +108,9 @@ The evaluation of ADDITIONAL-PROPERTIES to produce a property application specification may retrieve existing hostattrs, but should not set any new ones (not to be confused with how the :HOSTATTRS subroutines of properties in ADDITIONAL-PROPERTIES may set additional hostattrs)." - (once-only (host) + (once-only ((host (if (stringp host) + `(make-host :hostattrs (list :hostname (list ,host))) + host))) `(deploy* ',connections ,host (let ((*host* (shallow-copy-host ,host))) @@ -137,7 +139,9 @@ The evaluation of PROPERTIES to produce a property application specification may retrieve existing hostattrs, but should not set any new ones (not to be confused with how the :HOSTATTRS subroutines of properties in PROPERTIES may set additional hostattrs)." - (once-only (host) + (once-only ((host (if (stringp host) + `(make-host :hostattrs (list :hostname (list ,host))) + host))) `(deploy-these* ',connections ,host (let ((*host* (shallow-copy-host ,host))) |