summaryrefslogtreecommitdiff
path: root/lib/GnuPGAgent.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-09-01 22:22:56 -0400
committerjoe <joe@jerkface.net>2016-09-01 22:22:56 -0400
commit9c5f1d6577e35d3d134a7ad32d4d4611f05342cd (patch)
treef676410ce4b76f9d92a198eee6cece02bd3009c3 /lib/GnuPGAgent.hs
parente15e036f89a2c48b762f901e063d86417345287b (diff)
Cleanup output some.
Diffstat (limited to 'lib/GnuPGAgent.hs')
-rw-r--r--lib/GnuPGAgent.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/GnuPGAgent.hs b/lib/GnuPGAgent.hs
index 9e0bacf..06784dd 100644
--- a/lib/GnuPGAgent.hs
+++ b/lib/GnuPGAgent.hs
@@ -45,6 +45,7 @@ session :: IO (Maybe GnuPGAgent)
45session = do 45session = do
46 envhomedir Nothing gpgHomeSpec >>= \case 46 envhomedir Nothing gpgHomeSpec >>= \case
47 Just gpghome -> do 47 Just gpghome -> do
48 -- TODO: Launch gpg-agent if neccessary.
48 handleIO_ (hPutStrLn stderr "Failed to connect to gpg-agent." >> return Nothing) $ do 49 handleIO_ (hPutStrLn stderr "Failed to connect to gpg-agent." >> return Nothing) $ do
49 sock <- socket AF_UNIX Stream defaultProtocol 50 sock <- socket AF_UNIX Stream defaultProtocol
50 connect sock (SockAddrUnix (gpghome ++ "/S.gpg-agent")) 51 connect sock (SockAddrUnix (gpghome ++ "/S.gpg-agent"))