diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-10 19:10:08 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-10 19:10:08 -0500 |
| commit | 18ef79440155b80414423819888f76fb3bf18469 (patch) | |
| tree | 7dfa02db87451676aeddefb0e18efff599a910c8 /Data | |
| parent | 1d7d94256051b4129e7287540870bb0a2f0c618f (diff) | |
make fingerprint_material able to read SecretKeyPacket
Diffstat (limited to 'Data')
| -rw-r--r-- | Data/OpenPGP.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index d48dc5e..aded330 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -403,6 +403,15 @@ fingerprint_material (PublicKeyPacket {version = 4, | |||
| 403 | ] | 403 | ] |
| 404 | where material = LZ.concat $ | 404 | where material = LZ.concat $ |
| 405 | map (\f -> encode (key ! f)) (public_key_fields algorithm) | 405 | map (\f -> encode (key ! f)) (public_key_fields algorithm) |
| 406 | -- Proxy to make SecretKeyPacket work | ||
| 407 | fingerprint_material (SecretKeyPacket {version = 4, | ||
| 408 | timestamp = timestamp, | ||
| 409 | key_algorithm = algorithm, | ||
| 410 | key = key}) = | ||
| 411 | fingerprint_material PublicKeyPacket {version = 4, | ||
| 412 | timestamp = timestamp, | ||
| 413 | key_algorithm = algorithm, | ||
| 414 | key = key} | ||
| 406 | fingerprint_material p | version p `elem` [2, 3] = [n, e] | 415 | fingerprint_material p | version p `elem` [2, 3] = [n, e] |
| 407 | where n = LZ.drop 2 (encode (key p ! 'n')) | 416 | where n = LZ.drop 2 (encode (key p ! 'n')) |
| 408 | e = LZ.drop 2 (encode (key p ! 'e')) | 417 | e = LZ.drop 2 (encode (key p ! 'e')) |