From 006c3ace87a52d4ae4cc0e501d2fdd2a10aa7af0 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Tue, 19 May 2020 09:34:19 -0400 Subject: Use only 40-digit fingerprints when talking to gpg-agent. --- lib/GnuPGAgent.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 import Control.Monad.Fix import Control.Concurrent (threadDelay) -fingerprint = show . Data.OpenPGP.Util.fingerprint +fingerprint :: Packet -> String +fingerprint = take 40 . show . Data.OpenPGP.Util.fingerprint data GnuPGAgent = GnuPGAgent { agentHandle :: Handle } -- cgit v1.2.3