From 6dbfdc5dd5dde98858a46afcc96e5692b21c2cc2 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 13 Dec 2013 01:52:42 -0500
Subject: Oops

---
 kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {}) =
     PublicKeyPacket { version = version pkt
                     , timestamp = timestamp pkt
                     , key_algorithm = key_algorithm pkt
-                    , ecc_curve = def
+                    , ecc_curve = ecc_curve pkt
                     , key = let seckey = key pkt
                                 pubs = public_key_fields (key_algorithm pkt)
                             in filter (\(k,v) -> k `elem` pubs) seckey
-- 
cgit v1.2.3