From 3368bdd0a18a58f10fbec8880562ad63b85bcfd5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 00:28:56 -0400 Subject: improvements --- Property/Hostname.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Property') diff --git a/Property/Hostname.hs b/Property/Hostname.hs index 03293eb1..0529d213 100644 --- a/Property/Hostname.hs +++ b/Property/Hostname.hs @@ -1,8 +1,12 @@ module Property.Hostname where import Property +import Utility.SafeCommand type HostName = String set :: HostName -> Property -set hostname = fileHasContent "/etc/hostname" [hostname] +set hostname = combineProperties ("hostname " ++ hostname) + [ fileHasContent "/etc/hostname" [hostname] + , cmdProperty "hostname" [Param hostname] + ] -- cgit v1.2.3