aboutsummaryrefslogtreecommitdiff
path: root/src/property/installer.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-04-28 15:52:53 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-04-28 16:24:34 -0700
commit4d0c10c402aaef7a3c43683e40e33ce59ddcf1f5 (patch)
treeb25095eec418aba735cf508588562f871cc6ca8f /src/property/installer.lisp
parent1e69e649bf457f928da0bc88849b96e4622b4bb9 (diff)
downloadconsfigurator-4d0c10c402aaef7a3c43683e40e33ce59ddcf1f5.tar.gz
rename connattr :OPENED-VOLUMES -> DISK:OPENED-VOLUMES
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 1031cde..d3e4311 100644
--- a/src/property/installer.lisp
+++ b/src/property/installer.lisp
@@ -70,7 +70,7 @@ BOOTLOADER-TYPE to VOLUME."))
:hostattrs (lambda () (mapc #'propapp-attrs propapps))
:apply
(lambda ()
- (mapc #'consfigure (get-propspecs (get-connattr :opened-volumes)))
+ (mapc #'consfigure (get-propspecs (get-connattr 'disk:opened-volumes)))
(mrun "sync"))))
@@ -83,7 +83,7 @@ BOOTLOADER-TYPE to VOLUME."))
(run "rsync" "-PSavx" "--delete"
(loop for volume
in (mapcan (curry #'subvolumes-of-type 'mounted-filesystem)
- (get-connattr :opened-volumes))
+ (get-connattr 'disk:opened-volumes))
collect (strcat "--exclude="
(unix-namestring (mount-point volume))))
(strcat (unix-namestring chroot) "/")