diff options
author | joe <joe@jerkface.net> | 2013-12-13 01:52:42 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2013-12-13 01:52:42 -0500 |
commit | 6dbfdc5dd5dde98858a46afcc96e5692b21c2cc2 (patch) | |
tree | b9b39e0d667db325f4079ce1fa3974de3ee2ebd1 | |
parent | 43478c909db3efb9ea1f7ab1942c92c46026f869 (diff) |
Oops
-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 |