diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-15 11:24:15 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-15 11:24:15 -0700 |
| commit | 4c7869bb07cb7ae36a9ea300996940ee5570c92c (patch) | |
| tree | ec94170da6cf2e53fcf777d80c539cdfd69da472 /src/property/file.lisp | |
| parent | 9b6c9b92884cbf226d6d7b30d86daad96117eea2 (diff) | |
| download | consfigurator-4c7869bb07cb7ae36a9ea300996940ee5570c92c.tar.gz | |
FILE:HOST-DATA-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 e5d10a9..bdda926 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -129,16 +129,13 @@ replacing the contents of existing files, prefer FILE:HAS-CONTENT." (containing-directory-exists destination) (maybe-writefile-data destination iden1 iden2))) -(defprop host-data-uploaded :posix +(defproplist host-data-uploaded :posix (destination ;; Require an absolute path because we don't know the remote home ;; directory at hostattrs time, so can't resolve it ourselves. &aux (destination (unix-namestring (ensure-pathname destination :want-absolute t)))) - (:hostattrs - (require-data (get-hostname) destination)) - (:apply - (data-uploaded (get-hostname) destination destination))) + (data-uploaded (get-hostname) destination destination)) (defprop secret-uploaded :posix (iden1 iden2 destination) (:hostattrs |