diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-18 09:18:27 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-18 09:18:27 -0700 |
commit | 8d84ba3188005c1959b79f8f355944ee5e911de7 (patch) | |
tree | b68f728cac9cda48f16b27ee4ae2f6b148328501 /src/property/file.lisp | |
parent | ac323afe9320eb3dca745e4e61cbe94c544b3afd (diff) | |
download | consfigurator-8d84ba3188005c1959b79f8f355944ee5e911de7.tar.gz |
FILE:HOST-SECRET-UPLOADED: use DEFPROPLIST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/file.lisp')
-rw-r--r-- | src/property/file.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 8973de7..0148d2c 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -141,12 +141,9 @@ replacing the contents of existing files, prefer FILE:HAS-CONTENT." (containing-directory-exists destination) (maybe-writefile-data destination iden1 iden2 :mode #o600))) -(defprop host-secret-uploaded :posix +(defproplist host-secret-uploaded :posix (destination &aux (destination (unix-namestring destination))) - (:hostattrs - (require-data (get-hostname) destination)) - (:apply - (secret-uploaded (get-hostname) destination destination))) + (secret-uploaded (get-hostname) destination destination)) (defproplist data-cache-purged :posix () "Ensure that any prerequisite data cached in the remote home directory is removed." |