From c54b35e665f2a8ec2fff484de99fd59b0454dcff Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Mon, 15 Jul 2019 18:45:45 -0400 Subject: Switched fingerprint to wrapped ByteString + some module shuffling. --- lib/GnuPGAgent.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/GnuPGAgent.hs') diff --git a/lib/GnuPGAgent.hs b/lib/GnuPGAgent.hs index d73ceed..e5f91a2 100644 --- a/lib/GnuPGAgent.hs +++ b/lib/GnuPGAgent.hs @@ -18,7 +18,8 @@ import Data.Bool import Data.Char import Data.Maybe import Data.OpenPGP -import Data.OpenPGP.Util +import qualified Data.OpenPGP.Util + ;import Data.OpenPGP.Util hiding (fingerprint) import Data.Word import Network.Socket import System.Directory @@ -35,6 +36,8 @@ import ProcessUtils import Control.Monad.Fix import Control.Concurrent (threadDelay) +fingerprint = show . Data.OpenPGP.Util.fingerprint + data GnuPGAgent = GnuPGAgent { agentHandle :: Handle } launchAgent :: FilePath -> Maybe [(String,String)] -> IO (Maybe GnuPGAgent) -- cgit v1.2.3