From 38e626da7fa0db62c16dee4eb783fff2ce952378 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 00:33:45 -0400 Subject: improve --- Property/Hostname.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Property/Hostname.hs b/Property/Hostname.hs index 0529d213..7baf7178 100644 --- a/Property/Hostname.hs +++ b/Property/Hostname.hs @@ -6,7 +6,6 @@ import Utility.SafeCommand type HostName = String set :: HostName -> Property -set hostname = combineProperties ("hostname " ++ hostname) - [ fileHasContent "/etc/hostname" [hostname] - , cmdProperty "hostname" [Param hostname] - ] +set hostname = + fileHasContent "/etc/hostname" [hostname] + `onChange` cmdProperty "hostname" [Param hostname] -- cgit v1.2.3