From b3324e7ef7d17c909c59b598f36e84f576135cdd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 18 Jan 2019 12:11:38 -0400 Subject: Fix --spin crash when ~/.ssh/ directory did not already exist. --- src/Propellor/Ssh.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Ssh.hs') diff --git a/src/Propellor/Ssh.hs b/src/Propellor/Ssh.hs index a8f50ed0..9ba15d86 100644 --- a/src/Propellor/Ssh.hs +++ b/src/Propellor/Ssh.hs @@ -19,7 +19,7 @@ sshCachingParams :: HostName -> IO [CommandParam] sshCachingParams hn = do home <- myHomeDir let socketfile = socketFile home hn - createDirectoryIfMissing False (takeDirectory socketfile) + createDirectoryIfMissing True (takeDirectory socketfile) let ps = [ Param "-o" , Param ("ControlPath=" ++ socketfile) -- cgit v1.2.3