From 9c5f1d6577e35d3d134a7ad32d4d4611f05342cd Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 1 Sep 2016 22:22:56 -0400 Subject: Cleanup output some. --- lib/PacketTranscoder.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/PacketTranscoder.hs') 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 -- cgit v1.2.3