summaryrefslogtreecommitdiff
path: root/Property/Ssh.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 15:31:57 -0400
committerJoey Hess2014-03-30 15:38:08 -0400
commit90efcd3203d64c2c5691e30ccc23307aae8d20c8 (patch)
tree183f38a857a81a3cb1a301b94f827f8a807dc961 /Property/Ssh.hs
parent8d31a6226ac9e1dfc75ec7521f039a43e749ed82 (diff)
refactor
Diffstat (limited to 'Property/Ssh.hs')
-rw-r--r--Property/Ssh.hs12
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_*"