summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Ssh.hs
diff options
context:
space:
mode:
authorJoey Hess2014-05-21 14:13:39 -0400
committerJoey Hess2014-05-21 14:13:39 -0400
commit3b91f5bba315ebbb252dfd71528009c32aa54644 (patch)
tree0e7c55ff53fea4e3c3adbb8814cbdd330dff6772 /src/Propellor/Property/Ssh.hs
parent58e85f40197b3812efa39f214cd8f9149a4e39c1 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Property/Ssh.hs')
-rw-r--r--src/Propellor/Property/Ssh.hs3
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
]