diff options
Diffstat (limited to 'Data')
-rw-r--r-- | Data/OpenPGP.hs | 2 |
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 | |||
435 | (fullbytes,rembits) = len16 `quotRem` 8 | 435 | (fullbytes,rembits) = len16 `quotRem` 8 |
436 | len8 = fromIntegral (fullbytes + if rembits/=0 then 1 else 0) :: Word8 | 436 | len8 = fromIntegral (fullbytes + if rembits/=0 then 1 else 0) :: Word8 |
437 | eccstuff = case lookup 'e' (key k) of | 437 | eccstuff = case lookup 'e' (key k) of |
438 | Just stuff -> encode stuff | 438 | Just (MPI stuff) -> encode (fromIntegral stuff :: Word32) |
439 | Nothing -> B.empty | 439 | Nothing -> B.empty |
440 | case flag of | 440 | case flag of |
441 | 0x40 -> do | 441 | 0x40 -> do |