diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-01-04 17:00:08 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-04 17:00:08 -0400 |
| commit | 08b45ad6f68f36f5760ea7fece15691ded000159 (patch) | |
| tree | ea6d35853010384d525bd3d4e6ef90d43a564d59 /src | |
| parent | 0af7629c988dbce4b1074e6c760b8c2967411483 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -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 571adfd5..da777797 100644 --- a/src/Propellor/Property/Ssh.hs +++ b/src/Propellor/Property/Ssh.hs @@ -95,7 +95,7 @@ hostKeys ctx l = propertyList desc $ catMaybes $ desc = "ssh host keys configured " ++ typelist (map fst l) typelist tl = "(" ++ unwords (map fromKeyType tl) ++ ")" alltypes = [minBound..maxBound] - staletypes = filter (`notElem` alltypes) (map fst l) + staletypes = let have = map fst l in filter (`notElem` have) alltypes removestale b = map (File.notPresent . flip keyFile b) staletypes cleanup | null staletypes = Nothing |