From 3b91f5bba315ebbb252dfd71528009c32aa54644 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 21 May 2014 14:13:39 -0400
Subject: [PATCH] propellor spin

---
 src/Propellor/Property/Ssh.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs
index a4f8767..516525a 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
 				]