summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Systemd.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-30 11:30:11 -0400
committerJoey Hess2016-03-30 11:30:11 -0400
commit2f82a87fd7f411b9f619e048c1b9b54de6126987 (patch)
treefd169bd32e7977156c172cad4acfe6c7afba733f /src/Propellor/Property/Systemd.hs
parent5473314f57196887117cc45ff066ed4d74115ef2 (diff)
refactor
Diffstat (limited to 'src/Propellor/Property/Systemd.hs')
-rw-r--r--src/Propellor/Property/Systemd.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Property/Systemd.hs b/src/Propellor/Property/Systemd.hs
index e0b7d572..1e0c3f86 100644
--- a/src/Propellor/Property/Systemd.hs
+++ b/src/Propellor/Property/Systemd.hs
@@ -195,12 +195,13 @@ machined = withOS "machined installed" $ \w o ->
-- > & ...
container :: MachineName -> (FilePath -> Chroot.Chroot) -> Container
container name mkchroot =
- let c = Container name chroot (host name (containerProps chroot))
+ let c = Container name chroot h
in setContainerProps c $ containerProps c
&^ resolvConfed
&^ linkJournal
where
chroot = mkchroot (containerDir name)
+ h = host name (containerProps chroot)
-- | Defines a container with a given machine name, with the chroot
-- created using debootstrap.