diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 15:31:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 15:38:08 -0400 |
| commit | 90efcd3203d64c2c5691e30ccc23307aae8d20c8 (patch) | |
| tree | 183f38a857a81a3cb1a301b94f827f8a807dc961 /Property/Ssh.hs | |
| parent | 8d31a6226ac9e1dfc75ec7521f039a43e749ed82 (diff) | |
refactor
Diffstat (limited to 'Property/Ssh.hs')
| -rw-r--r-- | Property/Ssh.hs | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/Property/Ssh.hs b/Property/Ssh.hs index 98149bcb..1b0a6c53 100644 --- a/Property/Ssh.hs +++ b/Property/Ssh.hs @@ -1,14 +1,8 @@ module Property.Ssh where -import Control.Applicative -import Control.Monad -import System.FilePath - -import Property -import Property.User +import Common import qualified Property.File as File -import Utility.SafeCommand -import Utility.Exception +import Property.User sshBool :: Bool -> String sshBool True = "yes" @@ -48,7 +42,7 @@ uniqueHostKeys :: Property uniqueHostKeys = flagFile prop "/etc/ssh/.unique_host_keys" `onChange` restartSshd where - prop = IOProperty "ssh unique host keys" $ do + prop = Property "ssh unique host keys" $ do void $ boolSystem "sh" [ Param "-c" , Param "rm -f /etc/ssh/ssh_host_*" |