zone.lisp: Include SSHFP type code for Ed25519 keys.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index bd3cd3fb12e4c71804c0691a7feeb82e79875731..8eef825222fd7715c7889533710abcc84d536b50 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -923,7 +923,7 @@ (defzoneparse :dkim (name data rec)
       (rec :type :txt
           :data (nreverse things)))))
 
       (rec :type :txt
           :data (nreverse things)))))
 

-(defenum sshfp-algorithm () (:rsa 1) (:dsa 2) (:ecdsa 3))
+(defenum sshfp-algorithm () (:rsa 1) (:dsa 2) (:ecdsa 3) (:ed25519 4))

 (defenum sshfp-type () (:sha-1 1) (:sha-256 2))
 
 (export '*sshfp-pathname-defaults*)
 (defenum sshfp-type () (:sha-1 1) (:sha-256 2))
 
 (export '*sshfp-pathname-defaults*)