From d72333ae80c7331db26b2c622f1b7abeb75e44e8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 16 Jun 2016 22:12:28 -0400 Subject: response --- src/Propellor/Property/Systemd.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property/Systemd.hs') diff --git a/src/Propellor/Property/Systemd.hs b/src/Propellor/Property/Systemd.hs index 78529f73..80346889 100644 --- a/src/Propellor/Property/Systemd.hs +++ b/src/Propellor/Property/Systemd.hs @@ -64,10 +64,10 @@ type ServiceName = String type MachineName = String -data Container = Container MachineName Chroot.Chroot Host +data Container metatypes = Container MachineName Chroot.Chroot Host (Property metatypes) deriving (Show) -instance IsContainer Container where +instance IsContainer (Container metatypes) where containerProperties (Container _ _ h) = containerProperties h containerInfo (Container _ _ h) = containerInfo h setContainerProperties (Container n c h) ps = Container n c (setContainerProperties h ps) -- cgit v1.2.3