summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2015-01-04 17:00:08 -0400
committerJoey Hess2015-01-04 17:00:08 -0400
commit08b45ad6f68f36f5760ea7fece15691ded000159 (patch)
treeea6d35853010384d525bd3d4e6ef90d43a564d59 /src/Propellor
parent0af7629c988dbce4b1074e6c760b8c2967411483 (diff)
propellor spin
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/Ssh.hs2
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