summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Ssh.hs
diff options
context:
space:
mode:
authorJoey Hess2016-02-26 10:55:14 -0400
committerJoey Hess2016-02-26 10:55:14 -0400
commit0cba8dec39447f030c0f765d1d84a1c2466b9bfc (patch)
treeff57922d3184059f2a8a3575e4a3e37e44c2c755 /src/Propellor/Property/Ssh.hs
parente885431da416d26e01454edf47fefbc0777dcbdd (diff)
Ssh.authorizedKey: Fix bug preventing it from working when the authorized_keys file does not yet exist.
Diffstat (limited to 'src/Propellor/Property/Ssh.hs')
-rw-r--r--src/Propellor/Property/Ssh.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs
index 9e1fb7af..c21f009f 100644
--- a/src/Propellor/Property/Ssh.hs
+++ b/src/Propellor/Property/Ssh.hs
@@ -417,6 +417,6 @@ unauthorizedKey user@(User u) l = property desc $ do
modAuthorizedKey :: FilePath -> User -> Property NoInfo -> Propellor Result
modAuthorizedKey f user p = ensureProperty $ p
- `requires` File.mode f (combineModes [ownerWriteMode, ownerReadMode])
- `requires` File.ownerGroup f user (userGroup user)
- `requires` File.ownerGroup (takeDirectory f) user (userGroup user)
+ `before` File.mode f (combineModes [ownerWriteMode, ownerReadMode])
+ `before` File.ownerGroup f user (userGroup user)
+ `before` File.ownerGroup (takeDirectory f) user (userGroup user)