diff options
| author | Joey Hess <joey@kitenet.net> | 2014-05-21 14:13:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-21 14:13:39 -0400 |
| commit | 3b91f5bba315ebbb252dfd71528009c32aa54644 (patch) | |
| tree | 0e7c55ff53fea4e3c3adbb8814cbdd330dff6772 /src | |
| parent | 58e85f40197b3812efa39f214cd8f9149a4e39c1 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Ssh.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs index a4f87678..516525ad 100644 --- a/src/Propellor/Property/Ssh.hs +++ b/src/Propellor/Property/Ssh.hs @@ -109,7 +109,8 @@ keyImported keytype user = combineProperties desc ( noChange , ensureProperty $ combineProperties desc [ property desc $ - withPrivData p $ \key -> makeChange $ + withPrivData p $ \key -> makeChange $ do + createDirectoryIfMissing True (takeDirectory f) writer f key , File.ownerGroup f user user ] |