diff options
| author | joe <joe@jerkface.net> | 2016-09-01 22:22:56 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2016-09-01 22:22:56 -0400 |
| commit | 9c5f1d6577e35d3d134a7ad32d4d4611f05342cd (patch) | |
| tree | f676410ce4b76f9d92a198eee6cece02bd3009c3 /lib/GnuPGAgent.hs | |
| parent | e15e036f89a2c48b762f901e063d86417345287b (diff) | |
Cleanup output some.
Diffstat (limited to 'lib/GnuPGAgent.hs')
| -rw-r--r-- | lib/GnuPGAgent.hs | 1 |
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) | |||
| 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")) |