diff options
author | Joe Crayne <joe@jerkface.net> | 2019-11-10 14:27:48 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-11-10 14:27:48 -0500 |
commit | 76bf7e08bccbb1a3a689068016b8a9c29d1e060e (patch) | |
tree | 965b4e2d0b0220b2bb839874c58c3ffcfac0ddff /Data/OpenPGP.hs | |
parent | d0a13aa249c23d3521cc9654bf450923d849578f (diff) |
Ed25519 secret portion (create + sign).
Diffstat (limited to 'Data/OpenPGP.hs')
-rw-r--r-- | Data/OpenPGP.hs | 1 |
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 | |||
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 |