diff options
-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 | ||