propellor/Property/Hostname.hs

10 lines
264 B
Haskell
Raw Normal View History

2014-03-30 03:45:48 +00:00
module Property.Hostname where
2014-03-30 19:31:57 +00:00
import Common
2014-03-30 17:12:33 +00:00
import qualified Property.File as File
2014-03-30 03:45:48 +00:00
set :: HostName -> Property
2014-03-30 17:12:33 +00:00
set hostname = "/etc/hostname" `File.hasContent` [hostname]
`onChange` cmdProperty "hostname" [Param hostname]
2014-03-30 20:04:50 +00:00
`describe` ("hostname " ++ hostname)