aboutsummaryrefslogtreecommitdiff
path: root/src/property/installer.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-04-23 13:44:44 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-04-23 13:44:44 -0700
commitfc189e9a577d6a940ac8eefaae5913dd67a95953 (patch)
tree2919a69139fce13ced71c3642724651aeba02a72 /src/property/installer.lisp
parent3019bfea87ab6df33845f3bf7f7df03a33a5970d (diff)
downloadconsfigurator-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.lisp4
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)))