cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-05-21 14:13:39 -04:00
parent 58e85f4019
commit 3b91f5bba3
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Propellor/Property/Ssh.hs
View File

@ -109,7 +109,8 @@ keyImported keytype user = combineProperties desc
( noChange ( noChange
, ensureProperty $ combineProperties desc , ensureProperty $ combineProperties desc
[ property desc $ [ property desc $
withPrivData p $ \key -> makeChange $ withPrivData p $ \key -> makeChange $ do
createDirectoryIfMissing True (takeDirectory f)
writer f key writer f key
, File.ownerGroup f user user , File.ownerGroup f user user
] ]