From ef2f3d33de13df6e364de41bc5ed952fafaa0027 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 4 Jan 2015 18:20:02 -0400 Subject: Fix bug that prevented deploying ssh host keys when the file for the key didn't already exist. This is not a new bug. --- src/Propellor/Property/Ssh.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property/Ssh.hs') diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs index b6ed476e..e8671a22 100644 --- a/src/Propellor/Property/Ssh.hs +++ b/src/Propellor/Property/Ssh.hs @@ -120,7 +120,7 @@ hostKey context keytype pub = combineProperties desc desc = "ssh host key configured (" ++ fromKeyType keytype ++ ")" install writer ispub key = do let f = keyFile keytype ispub - s <- liftIO $ readFileStrict f + s <- liftIO $ catchDefaultIO "" $ readFileStrict f if s == key then noChange else makeChange $ writer f key -- cgit v1.2.3