propellor spin

This commit is contained in:
Joey Hess 2014-04-03 23:35:36 -04:00
parent ff49cf562c
commit fbc57d6845
Failed to extract signature
2 changed files with 3 additions and 1 deletions

View File

@ -40,7 +40,7 @@ setup propellorbin dest = do
return shim return shim
file :: FilePath -> FilePath -> FilePath file :: FilePath -> FilePath -> FilePath
file propellorbin dest = dest </> propellorbin file propellorbin dest = dest </> takeFileName propellorbin
installFile :: FilePath -> FilePath -> IO () installFile :: FilePath -> FilePath -> IO ()
installFile top f = do installFile top f = do

View File

@ -10,3 +10,5 @@ set :: HostName -> Property
set hostname = "/etc/hostname" `File.hasContent` [hostname] set hostname = "/etc/hostname" `File.hasContent` [hostname]
`onChange` cmdProperty "hostname" [hostname] `onChange` cmdProperty "hostname" [hostname]
`describe` ("hostname " ++ hostname) `describe` ("hostname " ++ hostname)
where
(host, domain) = separate (== '.') hostname