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)
 session = do
    envhomedir Nothing gpgHomeSpec >>= \case
        Just gpghome -> do
+            -- TODO: Launch gpg-agent if neccessary.
            handleIO_ (hPutStrLn stderr "Failed to connect to gpg-agent." >> return Nothing) $ do
            sock <- socket AF_UNIX Stream defaultProtocol
            connect sock (SockAddrUnix (gpghome ++ "/S.gpg-agent"))

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)
45	session = do	45	session = 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"))