summaryrefslogtreecommitdiff
path: root/Property/Hostname.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property/Hostname.hs')
-rw-r--r--Property/Hostname.hs6
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]
+ ]