summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--kiki.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/kiki.hs b/kiki.hs
index 789bc07..d468774 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -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