summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Ssh.hs
diff options
context:
space:
mode:
authorJoey Hess2016-02-26 10:55:21 -0400
committerJoey Hess2016-02-26 10:55:21 -0400
commit071921d11056527fc307e243b603bfc83d49555e (patch)
tree1fb5c8f7aeb4a1babbd13ca0622333fa5e8d5433 /src/Propellor/Property/Ssh.hs
parentc716d1a0d4b18737b133ba9cc23c97388f72f5c0 (diff)
parent0cba8dec39447f030c0f765d1d84a1c2466b9bfc (diff)
Merge branch 'joeyconfig'
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)