From 5fcf5e6479f58787b98c5d9e67f0bdeff66756eb Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 9 Nov 2019 20:06:45 -0500 Subject: Fixed fingerprint for ECC (curve 25519). --- Data/OpenPGP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 4627d4e..3fc4311 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs @@ -435,7 +435,7 @@ encode_public_key_material k | key_algorithm k `elem` [ECDSA,Ed25519,ECC] = do (fullbytes,rembits) = len16 `quotRem` 8 len8 = fromIntegral (fullbytes + if rembits/=0 then 1 else 0) :: Word8 eccstuff = case lookup 'e' (key k) of - Just stuff -> encode stuff + Just (MPI stuff) -> encode (fromIntegral stuff :: Word32) Nothing -> B.empty case flag of 0x40 -> do -- cgit v1.2.3