diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-08 10:47:25 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 20:46:00 -0700 |
| commit | 4450ef759a93133a6bb970358e21178000861347 (patch) | |
| tree | 27651b6e6e20d4c395883b30b005d6b0e59528be /src | |
| parent | 3363c72eab4b24e3961ff8a9b829b4d1c90c2413 (diff) | |
| download | consfigurator-4450ef759a93133a6bb970358e21178000861347.tar.gz | |
FILE:DATA-CACHE-PURGED: fix looking up the cache location
Previously we were looking it up at :HOSTATTRS time, which failed.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
| -rw-r--r-- | src/property/file.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index c18a99d..a1435cf 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -155,10 +155,10 @@ replacing the contents of existing files, prefer FILE:HAS-CONTENT." (ensure-pathname destination :want-absolute t)))) (secret-uploaded (get-hostname) destination destination)) -(defproplist data-cache-purged :posix () +(defprop data-cache-purged :posix () "Ensure that any prerequisite data cached in the remote home directory is removed." (:desc "Consfigurator data cache cleaned") - (directory-does-not-exist (get-remote-data-cache-dir))) + (:apply (directory-does-not-exist (get-remote-data-cache-dir)))) (defprop regex-replaced-lines :posix (file regex replace) "Like s/REGEX/REPLACE/ on the lines of FILE. |