From 8413a91f7b1005106fb53c918463bdf4930c8616 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 27 Mar 2021 20:43:23 -0700
Subject: FILE:DOES-NOT-EXIST: add a :CHECK subroutine

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 src/property/file.lisp | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
cgit v1.2.3