diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-01-04 18:20:02 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-04 18:20:02 -0400 |
| commit | ef2f3d33de13df6e364de41bc5ed952fafaa0027 (patch) | |
| tree | 41c4956507de84a2fecec3894575d12803580de4 /src/Propellor/Property/Ssh.hs | |
| parent | f21d6fcb2dcd88875c10e1d2a8f84f6f89d324f8 (diff) | |
Fix bug that prevented deploying ssh host keys when the file for the key didn't already exist.
This is not a new bug.
Diffstat (limited to 'src/Propellor/Property/Ssh.hs')
| -rw-r--r-- | src/Propellor/Property/Ssh.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |