Cleanup output some.

2 files changed, 3 insertions, 2 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/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index eaa8366..e276528 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -130,7 +130,7 @@ interpretPassSpec ctx keys PassphraseAgent = do
     let cacheSearch alg mp =
             case getQueries keys mp of
                 [] -> []
-                kqry:qs -> trace ("queries="++show (kqry:qs)) $
+                kqry:qs -> -- trace ("queries="++show (kqry:qs)) $
                             map (sendQuery agent (AskNot,NextPassphrase)) (kqry:qs)
                             ++ sendQuery agent (initial_ask,CanceledPassphrase) kqry
                                 : replicate 3 (sendQuery agent (AskAgain "Bad passphrase",CanceledPassphrase) kqry)
@@ -147,7 +147,7 @@ sendQuery agent (ask,failure) qry = do
     mbpw <- getPassphrase agent ask (packet qry)
     case mbpw of
         Nothing -> do
-            S8.hPutStr stderr $ S8.pack $ "Failed to get passphrase "++show failure
+            S8.hPutStrLn stderr $ S8.pack $ "Failed to get passphrase "++show failure
             return failure
         Just pw -> do
             -- S8.hPutStrLn stderr $ S8.pack $ "received pw: "++pw