1 files changed, 0 insertions, 13 deletions
diff --git a/kiki.hs b/kiki.hs
index 3c3fdc9..9c748e5 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -89,19 +89,6 @@ import KeyRing
 nistp256_id  = 0x2a8648ce3d030107
 secp256k1_id = 0x2b8104000a
-isCryptoCoinKey p =
-    and [ isKey p
-        , key_algorithm p == ECDSA
-        , lookup 'c' (key p) == Just (MPI secp256k1_id)
-        ]
-getCryptoCoinTag p | isSignaturePacket p = do
-    -- CryptoCoins.secret
-    let sps = hashed_subpackets p ++ unhashed_subpackets p
-    u <- listToMaybe $ mapMaybe usage sps
-    CryptoCoins.lookupNetwork CryptoCoins.network_name u
-getCryptoCoinTag _ = Nothing
 warn str = hPutStrLn stderr str
 unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p))

diff --git a/kiki.hs b/kiki.hs index 3c3fdc9..9c748e5 100644 --- a/kiki.hs +++ b/kiki.hs
@@ -89,19 +89,6 @@ import KeyRing
89	nistp256_id = 0x2a8648ce3d030107	89	nistp256_id = 0x2a8648ce3d030107
90	secp256k1_id = 0x2b8104000a	90	secp256k1_id = 0x2b8104000a
91		91
92	isCryptoCoinKey p =
93	and [ isKey p
94	, key_algorithm p == ECDSA
95	, lookup 'c' (key p) == Just (MPI secp256k1_id)
96	]
97
98	getCryptoCoinTag p \| isSignaturePacket p = do
99	-- CryptoCoins.secret
100	let sps = hashed_subpackets p ++ unhashed_subpackets p
101	u <- listToMaybe $ mapMaybe usage sps
102	CryptoCoins.lookupNetwork CryptoCoins.network_name u
103	getCryptoCoinTag _ = Nothing
104
105	warn str = hPutStrLn stderr str	92	warn str = hPutStrLn stderr str
106		93
107	unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p))	94	unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p))