diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 13:47:12 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 13:47:39 -0700 |
commit | cd39d1fa08f0811e3361aca4a0fc1f0cd8ce7b2f (patch) | |
tree | 1f848d1d844526278ec7410795756a31d5cd2adb /src/combinator.lisp | |
parent | 3eda6d0f63bb2b19182dfbacfaa9dd656286d740 (diff) | |
download | consfigurator-cd39d1fa08f0811e3361aca4a0fc1f0cd8ce7b2f.tar.gz |
make dedicated RECONNECTS property rather than using DEPLOYS-THESE
This is easier to read.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 23c8575..7602d3e 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -132,6 +132,5 @@ ON-CHANGE in order." :args (cdr propapp))) (defmacro as (user &body properties) - "Apply PROPERTIES as USER by reconnecting to the host with the :AS connection -type." - `(deploys-these. `((:as :to ,,user)) :parent ,@properties)) + "Apply PROPERTIES as USER by reconnecting with the :AS connection type." + `(reconnects. `((:as :to ,,user)) ,@properties)) |