summaryrefslogtreecommitdiff
path: root/Property/Ssh.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property/Ssh.hs')
-rw-r--r--Property/Ssh.hs7
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