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
 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 }