Fixed fingerprint for ECC (curve 25519).

1 files changed, 1 insertions, 1 deletions

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