diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 20:43:23 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 20:45:37 -0700 |
commit | 8413a91f7b1005106fb53c918463bdf4930c8616 (patch) | |
tree | 3a5c8be9741801f44dc6c9a2eefd443bbfa966cb | |
parent | 34a71bdd0bc698bb84793a9b9e87b2fe240ca8ba (diff) | |
download | consfigurator-8413a91f7b1005106fb53c918463bdf4930c8616.tar.gz |
FILE:DOES-NOT-EXIST: add a :CHECK subroutine
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/file.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 338f0d1..59d8a55 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -59,6 +59,7 @@ CONTENT can be a list of lines or a single string." (:desc (if (cdr paths) #?"@{paths} do not exist" #?"${(car paths)} does not exist")) + (:check (remote-exists-p paths)) (:apply (mrun "rm" "-f" paths))) (defprop data-uploaded :posix (iden1 iden2 destination) |