diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-11-25 12:45:18 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-11-29 11:00:48 -0700 |
commit | 3e13c20d34c2f306372f2b5e4fb047e5524a814a (patch) | |
tree | 599d5a3327400678b71cbe8f52f1a371503f628d /src/property | |
parent | c99bb434df3336bf0299a15c795de880f151a58c (diff) | |
download | consfigurator-3e13c20d34c2f306372f2b5e4fb047e5524a814a.tar.gz |
CHROOT::%DEBOOTSTRAPPED: use EMPTY-REMOTE-DIRECTORY when recovering
If the root is a mount point, then when recovering from a failed debootstrap
we need to remove its contents but not the root itself.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property')
-rw-r--r-- | src/property/chroot.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index e2d0510..3e790d3 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -25,7 +25,7 @@ ;; check whether a previous debootstrap failed partway through (if (remote-test "-d" (merge-pathnames "debootstrap/" (ensure-directory-pathname root))) - (progn (delete-remote-trees root) nil) + (progn (empty-remote-directory root) nil) (remote-exists-p (chroot-pathname "/usr/lib/os-release" root)))) (:apply (destructuring-bind |