1 files changed, 1 insertions, 0 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 3fc4311..45ca27e 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -360,6 +360,7 @@ secret_key_fields RSA_S   = secret_key_fields RSA
 secret_key_fields ELGAMAL = ['x']
 secret_key_fields DSA     = ['x']
 secret_key_fields ECDSA   = ['d']
+secret_key_fields Ed25519 = ['d']
 secret_key_fields alg     = error ("Unkown secret fields for "++show alg) -- Nothing in the spec. Maybe empty
 (!) :: (HasCallStack, Show k, Eq k) => [(k,v)] -> k -> v

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 3fc4311..45ca27e 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs
@@ -360,6 +360,7 @@ secret_key_fields RSA_S = secret_key_fields RSA
360	secret_key_fields ELGAMAL = ['x']	360	secret_key_fields ELGAMAL = ['x']
361	secret_key_fields DSA = ['x']	361	secret_key_fields DSA = ['x']
362	secret_key_fields ECDSA = ['d']	362	secret_key_fields ECDSA = ['d']
		363	secret_key_fields Ed25519 = ['d']
363	secret_key_fields alg = error ("Unkown secret fields for "++show alg) -- Nothing in the spec. Maybe empty	364	secret_key_fields alg = error ("Unkown secret fields for "++show alg) -- Nothing in the spec. Maybe empty
364		365
365	(!) :: (HasCallStack, Show k, Eq k) => [(k,v)] -> k -> v	366	(!) :: (HasCallStack, Show k, Eq k) => [(k,v)] -> k -> v