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 141e3495..98149bcb 100644
--- a/Property/Ssh.hs
+++ b/Property/Ssh.hs
@@ -6,6 +6,7 @@ import System.FilePath
import Property
import Property.User
+import qualified Property.File as File
import Utility.SafeCommand
import Utility.Exception
@@ -18,8 +19,8 @@ sshdConfig = "/etc/ssh/sshd_config"
setSshdConfig :: String -> Bool -> Property
setSshdConfig setting allowed = combineProperties desc
- [ lineNotInFile sshdConfig $ sshline (not allowed)
- , lineInFile sshdConfig $ sshline allowed
+ [ sshdConfig `File.lacksLine` (sshline $ not allowed)
+ , sshdConfig `File.containsLine` (sshline allowed)
] `onChange` restartSshd
where
desc = unwords [ "ssh config:", setting, sshBool allowed ]