fix ssh config

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"