aboutsummaryrefslogtreecommitdiff
path: root/src/property/chroot.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-05-24 17:08:50 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-05-24 17:08:50 -0700
commitbf9d7ed723517034449af5e4c2857897ccaddbfb (patch)
treeb150b53b67d2820cdd65cfd26090d7ae6c257cc0 /src/property/chroot.lisp
parentbedf3a65d844beaeae3f58b4818323926532cf74 (diff)
downloadconsfigurator-bf9d7ed723517034449af5e4c2857897ccaddbfb.tar.gz
add CONSFIGURATOR.PROPERTY.CONTAINER
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
-rw-r--r--src/property/chroot.lisp12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp
index d655c2b..510288a 100644
--- a/src/property/chroot.lisp
+++ b/src/property/chroot.lisp
@@ -58,11 +58,13 @@
(defmethod %make-child-host ((host unpreprocessed-host))
(let ((propspec (host-propspec host)))
- (make-child-host :hostattrs (hostattrs host)
- :propspec (make-propspec
- :systems (propspec-systems propspec)
- :propspec `(service:without-starting-services
- ,(propspec-props propspec))))))
+ (make-child-host
+ :hostattrs (hostattrs host)
+ :propspec (make-propspec
+ :systems (propspec-systems propspec)
+ :propspec `(service:without-starting-services
+ (container:contained :filesystem)
+ ,(propspec-props propspec))))))
(defproplist deploys :lisp (root host &optional additional-properties)
"Like DEPLOYS with first argument `((:chroot :into ,root)), but disable