Better error reporting

1 files changed, 3 insertions, 0 deletions

diff --git a/lib/GnuPGAgent.hs b/lib/GnuPGAgent.hs
index 7161b92..067e3bc 100644
--- a/lib/GnuPGAgent.hs
+++ b/lib/GnuPGAgent.hs
@@ -12,6 +12,7 @@ module GnuPGAgent
 
 import Debug.Trace
 import Control.Monad
+import ControlMaybe
 import Data.Char
 import Data.OpenPGP
 import Data.OpenPGP.Util
@@ -39,9 +40,11 @@ import Data.Word
 
 data GnuPGAgent = GnuPGAgent { agentHandle :: Handle }
 
+session :: IO (Maybe GnuPGAgent)
 session = do
     envhomedir Nothing gpgHomeSpec >>= \case
         Just gpghome -> do
+            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"))
             agent <- socketToHandle sock ReadWriteMode