From 0cba8dec39447f030c0f765d1d84a1c2466b9bfc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 26 Feb 2016 10:55:14 -0400 Subject: Ssh.authorizedKey: Fix bug preventing it from working when the authorized_keys file does not yet exist. --- src/Propellor/Property/Ssh.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Propellor/Property/Ssh.hs') 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) -- cgit v1.2.3