diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 00:28:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 00:28:56 -0400 |
| commit | 3368bdd0a18a58f10fbec8880562ad63b85bcfd5 (patch) | |
| tree | ecc22f01c33c19a5bdb1a0b09a3244c2973f75ca /Property | |
| parent | c1ad516a6c85d5fc7733151bcae07495e69319ea (diff) | |
improvements
Diffstat (limited to 'Property')
| -rw-r--r-- | Property/Hostname.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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] + ] |