diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 10:18:41 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-31 10:54:49 -0700 |
commit | 521dd4f062ddbcffcfa7a8ef68966059ffbefc4c (patch) | |
tree | 7a85790baed5887cb04e648f4152664257dc5481 /src/property/file.lisp | |
parent | a1844ff571d7dc4c7044dfa624ca9b8feef0fa68 (diff) | |
download | consfigurator-521dd4f062ddbcffcfa7a8ef68966059ffbefc4c.tar.gz |
FILE:HOST-SECRET-UPLOADED: avoid using a pathname as IDEN2
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/file.lisp')
-rw-r--r-- | src/property/file.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 1bfda29..4af2e27 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -98,7 +98,8 @@ CONTENT can be a list of lines or a single string." (containing-directory-exists destination) (maybe-writefile-data destination iden1 iden2 :mode #o600))) -(defprop host-secret-uploaded :posix (destination) +(defprop host-secret-uploaded :posix + (destination &aux (destination (unix-namestring destination))) (:hostattrs (require-data (get-hostname) destination)) (:apply |