diff options
Diffstat (limited to 'Property')
| -rw-r--r-- | Property/Ssh.hs | 5 |
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" |