cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-03 23:59:32 -04:00
parent 7932c5abec
commit d19171ed53
Failed to extract signature
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Propellor/Property/Hostname.hs
View File

@ -12,7 +12,6 @@ import qualified Propellor.Property.File as File
set :: HostName -> Property set :: HostName -> Property
set hostname = propertyList desc go set hostname = propertyList desc go
`onChange` cmdProperty "hostname" [host] `onChange` cmdProperty "hostname" [host]
`describe` desc
where where
desc = "hostname " ++ hostname desc = "hostname " ++ hostname
(host, domain) = separate (== '.') hostname (host, domain) = separate (== '.') hostname