More merging of 0bc53f99cfd70f3a18802604d7ef3174d004db4c.

1 files changed, 0 insertions, 29 deletions

diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index 6de217b..d8f8d50 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -1042,17 +1042,6 @@ secp256k1_id = 0x2b8104000a
 -}
 
 
-keyCompare :: String -> Packet -> Packet -> Ordering
-keyCompare what (SecretKeyPacket {}) (PublicKeyPacket {}) = LT
-keyCompare what (PublicKeyPacket {}) (SecretKeyPacket {}) = GT
-keyCompare what a b | keykey a==keykey b = EQ
-keyCompare what a b = error $ unlines ["Unable to merge "++what++":"
-                              , fingerprint a
-                              , PP.ppShow a
-                              , fingerprint b
-                              , PP.ppShow b
-                              ]
-
 
 dbInsertPacket :: KeyData -> FilePath -> (Int,(Packet,Packet,(Packet,Map.Map FilePath Packet))) -> Maybe KeyData
 dbInsertPacket kd filename (n,(top,sub,ptt@(p,trustmap))) = update (Just kd)
@@ -1119,24 +1108,6 @@ dbInsertPacket kd filename (n,(top,sub,ptt@(p,trustmap))) = update (Just kd)
     mergeSubSig n sig Nothing = error $
         "Unable to merge subkey signature: "++(words (show sig) >>= take 1)
 
-secretToPublic :: Packet -> Packet
-secretToPublic pkt@(SecretKeyPacket {}) =
-    PublicKeyPacket { version = version pkt
-                    , timestamp = timestamp pkt
-                    , key_algorithm = key_algorithm pkt
-                    -- , 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
-                    , is_subkey = is_subkey pkt
-                    , v3_days_of_validity = Nothing
-                    }
-secretToPublic pkt = pkt
-
-
-ifSecret :: Packet -> t -> t -> t
-ifSecret (SecretKeyPacket {}) t f = t
-ifSecret _                    t f = f
 
 instance ASN1Object RSAPrivateKey where
     toASN1 rsa@(RSAPrivateKey {})