summaryrefslogtreecommitdiff
path: root/Property/Ssh.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property/Ssh.hs')
-rw-r--r--Property/Ssh.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Property/Ssh.hs b/Property/Ssh.hs
index c5902d94..3883606b 100644
--- a/Property/Ssh.hs
+++ b/Property/Ssh.hs
@@ -18,11 +18,12 @@ sshdConfig = "/etc/ssh/sshd_config"
setSshdConfig :: String -> Bool -> Property
setSshdConfig setting allowed = combineProperties desc
- [ lineNotInFile sshdConfig (setting ++ sshBool (not allowed))
- , lineInFile sshdConfig (setting ++ sshBool allowed)
+ [ lineNotInFile sshdConfig $ sshLine (not allowed)
+ , lineInFile sshdConfig $ sshLine allowed
] `onChange` restartSshd
where
desc = unwords [ "ssh config:", setting, sshBool allowed ]
+ sshline v = setting ++ " " ++ sshBool v
permitRootLogin :: Bool -> Property
permitRootLogin = setSshdConfig "PermitRootLogin"