diff options
| author | Andrew Cady <d@jerkface.net> | 2019-07-16 21:14:32 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-07-16 21:14:32 -0400 |
| commit | d5b38fc2736ae75c872a6eb51d80cc90e97d1fc4 (patch) | |
| tree | 58a08a2ea7c3feae3928f98fadd0e4ec462b9dc0 /lib/KeyRing.hs | |
| parent | 8af08303e56fc109135e2ade91299338d03b57b0 (diff) | |
KeyExactwip
Diffstat (limited to 'lib/KeyRing.hs')
| -rw-r--r-- | lib/KeyRing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index 8c92a81..4260eeb 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs | |||
| @@ -673,7 +673,7 @@ isauth rt keydata = dont_have keydata && maybe False (`has_good_sig` keydata) wk | |||
| 673 | workingKey grip use_db = listToMaybe $ do | 673 | workingKey grip use_db = listToMaybe $ do |
| 674 | fp <- maybeToList grip | 674 | fp <- maybeToList grip |
| 675 | elm <- keyData use_db | 675 | elm <- keyData use_db |
| 676 | guard $ matchSpec (KeyGrip $ show fp) elm | 676 | guard $ matchSpec (KeyExact $ Just fp) elm |
| 677 | return $ keyPacket elm | 677 | return $ keyPacket elm |
| 678 | 678 | ||
| 679 | mkarmor :: Access -> L.ByteString -> [Armor] | 679 | mkarmor :: Access -> L.ByteString -> [Armor] |