diff options
Diffstat (limited to 'Property')
| -rw-r--r-- | Property/Ssh.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Property/Ssh.hs b/Property/Ssh.hs index 1b0a6c53..c726bedd 100644 --- a/Property/Ssh.hs +++ b/Property/Ssh.hs @@ -12,12 +12,13 @@ sshdConfig :: FilePath sshdConfig = "/etc/ssh/sshd_config" setSshdConfig :: String -> Bool -> Property -setSshdConfig setting allowed = combineProperties desc +setSshdConfig setting allowed = combineProperties [ sshdConfig `File.lacksLine` (sshline $ not allowed) , sshdConfig `File.containsLine` (sshline allowed) - ] `onChange` restartSshd + ] + `onChange` restartSshd + `describe` unwords [ "ssh config:", setting, sshBool allowed ] where - desc = unwords [ "ssh config:", setting, sshBool allowed ] sshline v = setting ++ " " ++ sshBool v permitRootLogin :: Bool -> Property |