From d3e6b42156a0b1e0a40cdf8862120a43da72a91d Mon Sep 17 00:00:00 2001 From: Franz Pletz Date: Wed, 16 Apr 2014 18:41:48 +0200 Subject: Add support for SSH ed25519 keys This works with both host and user keys. (cherry picked from commit 763c65b84f9505b3b2e98b982e2e6cdaf5b662bc) --- Propellor/Property/Ssh.hs | 1 + Propellor/Types.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Propellor/Property/Ssh.hs b/Propellor/Property/Ssh.hs index b13a12bf..a39792cf 100644 --- a/Propellor/Property/Ssh.hs +++ b/Propellor/Property/Ssh.hs @@ -122,6 +122,7 @@ fromKeyType :: SshKeyType -> String fromKeyType SshRsa = "rsa" fromKeyType SshDsa = "dsa" fromKeyType SshEcdsa = "ecdsa" +fromKeyType SshEd25519 = "ed25519" -- | Puts some host's ssh public key into the known_hosts file for a user. knownHost :: [Host] -> HostName -> UserName -> Property diff --git a/Propellor/Types.hs b/Propellor/Types.hs index 5f575daf..fc767cd2 100644 --- a/Propellor/Types.hs +++ b/Propellor/Types.hs @@ -150,5 +150,5 @@ data PrivDataField type GpgKeyId = String -data SshKeyType = SshRsa | SshDsa | SshEcdsa +data SshKeyType = SshRsa | SshDsa | SshEcdsa | SshEd25519 deriving (Read, Show, Ord, Eq) -- cgit v1.2.3