diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-02-26 10:55:14 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-26 10:55:14 -0400 |
| commit | 0cba8dec39447f030c0f765d1d84a1c2466b9bfc (patch) | |
| tree | ff57922d3184059f2a8a3575e4a3e37e44c2c755 /src | |
| parent | e885431da416d26e01454edf47fefbc0777dcbdd (diff) | |
Ssh.authorizedKey: Fix bug preventing it from working when the authorized_keys file does not yet exist.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Ssh.hs | 6 |
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) |