From 826d29dea7dff94681a8c1fa933f901dd53adc59 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 23 Jul 2021 12:01:50 -0700 Subject: INSTALLER:CLEANLY-INSTALLED-ONCE: reset some connattrs Signed-off-by: Sean Whitton --- src/property/installer.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/property/installer.lisp') diff --git a/src/property/installer.lisp b/src/property/installer.lisp index f5a3806..2830703 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -273,6 +273,8 @@ using a combinator like ON-CHANGE, or applied manually with DEPLOY-THESE." (when (directory-exists-p source) (rename-file source (ensure-directories-exist #P"/root/.cache/consfigurator/")))) + (setf (get-connattr :remote-user) "root") + (setf (get-connattr :remote-home) "/root") (posix-login-environment "root" "/root") ;; Remount (mainly virtual) filesystems that other properties we will -- cgit v1.2.3