summaryrefslogtreecommitdiff
path: root/src/Propellor/Property
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property')
-rw-r--r--src/Propellor/Property/Ssh.hs9
1 files changed, 3 insertions, 6 deletions
diff --git a/src/Propellor/Property/Ssh.hs b/src/Propellor/Property/Ssh.hs
index 9a0b2153..301c628b 100644
--- a/src/Propellor/Property/Ssh.hs
+++ b/src/Propellor/Property/Ssh.hs
@@ -90,13 +90,10 @@ pubKey t k = pureInfoProperty ("ssh pubkey known") $
getPubKey :: Propellor (M.Map SshKeyType String)
getPubKey = asks (_sshPubKey . hostInfo)
--- | Installs all commonly used types of ssh host keys.
+-- | Installs all available types of ssh host keys.
hostKeys :: IsContext c => c -> Property
-hostKeys ctx = propertyList "known ssh host keys"
- [ hostKey SshDsa ctx
- , hostKey SshRsa ctx
- , hostKey SshEcdsa ctx
- ]
+hostKeys ctx = propertyList "known ssh host keys" $
+ map (flip hostKey ctx) [minBound..maxBound]
-- | Installs a single ssh host key.
--