diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-23 12:01:50 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-24 12:39:46 -0700 |
commit | 826d29dea7dff94681a8c1fa933f901dd53adc59 (patch) | |
tree | ebb07bd29977dec4755f5f14fcf5015144380653 /src/property/installer.lisp | |
parent | 885b9f3f762cdf18ff358509fd8838f8222b43ba (diff) | |
download | consfigurator-826d29dea7dff94681a8c1fa933f901dd53adc59.tar.gz |
INSTALLER:CLEANLY-INSTALLED-ONCE: reset some connattrs
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/installer.lisp')
-rw-r--r-- | src/property/installer.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
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 |