diff options
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -242,7 +242,7 @@ secretToPublic pkt@(SecretKeyPacket {}) = | |||
242 | PublicKeyPacket { version = version pkt | 242 | PublicKeyPacket { version = version pkt |
243 | , timestamp = timestamp pkt | 243 | , timestamp = timestamp pkt |
244 | , key_algorithm = key_algorithm pkt | 244 | , key_algorithm = key_algorithm pkt |
245 | , ecc_curve = def | 245 | , ecc_curve = ecc_curve pkt |
246 | , key = let seckey = key pkt | 246 | , key = let seckey = key pkt |
247 | pubs = public_key_fields (key_algorithm pkt) | 247 | pubs = public_key_fields (key_algorithm pkt) |
248 | in filter (\(k,v) -> k `elem` pubs) seckey | 248 | in filter (\(k,v) -> k `elem` pubs) seckey |