diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-05-19 09:34:19 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 12:50:49 -0400 |
| commit | 006c3ace87a52d4ae4cc0e501d2fdd2a10aa7af0 (patch) | |
| tree | 2d46edd336d284a52ccf86ce4a9b293b4edf823f | |
| parent | 9a289d6029f73624b0215d100b6295b51993ebee (diff) | |
Use only 40-digit fingerprints when talking to gpg-agent.
| -rw-r--r-- | lib/GnuPGAgent.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/GnuPGAgent.hs b/lib/GnuPGAgent.hs index e5f91a2..f1d1552 100644 --- a/lib/GnuPGAgent.hs +++ b/lib/GnuPGAgent.hs | |||
| @@ -36,7 +36,8 @@ import ProcessUtils | |||
| 36 | import Control.Monad.Fix | 36 | import Control.Monad.Fix |
| 37 | import Control.Concurrent (threadDelay) | 37 | import Control.Concurrent (threadDelay) |
| 38 | 38 | ||
| 39 | fingerprint = show . Data.OpenPGP.Util.fingerprint | 39 | fingerprint :: Packet -> String |
| 40 | fingerprint = take 40 . show . Data.OpenPGP.Util.fingerprint | ||
| 40 | 41 | ||
| 41 | data GnuPGAgent = GnuPGAgent { agentHandle :: Handle } | 42 | data GnuPGAgent = GnuPGAgent { agentHandle :: Handle } |
| 42 | 43 | ||