diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-23 13:44:44 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-23 13:44:44 -0700 |
commit | fc189e9a577d6a940ac8eefaae5913dd67a95953 (patch) | |
tree | 2919a69139fce13ced71c3642724651aeba02a72 /src/property/installer.lisp | |
parent | 3019bfea87ab6df33845f3bf7f7df03a33a5970d (diff) | |
download | consfigurator-fc189e9a577d6a940ac8eefaae5913dd67a95953.tar.gz |
rename ASSERT-EUID-ROOT -> ASSERT-REMOTE-EUID-ROOT
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/installer.lisp')
-rw-r--r-- | src/property/installer.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/installer.lisp b/src/property/installer.lisp index 0791918..26bcd8b 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -70,7 +70,7 @@ BOOTLOADER-TYPE to VOLUME.")) (defprop %update-target-from-chroot :posix (chroot target) (:desc #?"Updated ${target} from ${chroot}") (:apply - (assert-euid-root) + (assert-remote-euid-root) (run "rsync" "-PSavx" "--delete" (loop for volume in (mapcan (curry #'subvolumes-of-type 'mounted-filesystem) @@ -169,7 +169,7 @@ using a combinator like ON-CHANGE, or applied manually with DEPLOY-THESE." (defprop %root-filesystems-flipped :lisp (new-os old-os) (:hostattrs (os:required 'os:linux)) (:apply - (assert-euid-root) + (assert-remote-euid-root) (let ((new-os (ensure-directory-pathname new-os)) (old-os (ensure-directories-exist (ensure-directory-pathname old-os))) |