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/PacketTranscoder.hs | |
parent | e15e036f89a2c48b762f901e063d86417345287b (diff) |
Cleanup output some.
Diffstat (limited to 'lib/PacketTranscoder.hs')
-rw-r--r-- | lib/PacketTranscoder.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
130 | let cacheSearch alg mp = | 130 | let cacheSearch alg mp = |
131 | case getQueries keys mp of | 131 | case getQueries keys mp of |
132 | [] -> [] | 132 | [] -> [] |
133 | kqry:qs -> trace ("queries="++show (kqry:qs)) $ | 133 | kqry:qs -> -- trace ("queries="++show (kqry:qs)) $ |
134 | map (sendQuery agent (AskNot,NextPassphrase)) (kqry:qs) | 134 | map (sendQuery agent (AskNot,NextPassphrase)) (kqry:qs) |
135 | ++ sendQuery agent (initial_ask,CanceledPassphrase) kqry | 135 | ++ sendQuery agent (initial_ask,CanceledPassphrase) kqry |
136 | : replicate 3 (sendQuery agent (AskAgain "Bad passphrase",CanceledPassphrase) kqry) | 136 | : replicate 3 (sendQuery agent (AskAgain "Bad passphrase",CanceledPassphrase) kqry) |
@@ -147,7 +147,7 @@ sendQuery agent (ask,failure) qry = do | |||
147 | mbpw <- getPassphrase agent ask (packet qry) | 147 | mbpw <- getPassphrase agent ask (packet qry) |
148 | case mbpw of | 148 | case mbpw of |
149 | Nothing -> do | 149 | Nothing -> do |
150 | S8.hPutStr stderr $ S8.pack $ "Failed to get passphrase "++show failure | 150 | S8.hPutStrLn stderr $ S8.pack $ "Failed to get passphrase "++show failure |
151 | return failure | 151 | return failure |
152 | Just pw -> do | 152 | Just pw -> do |
153 | -- S8.hPutStrLn stderr $ S8.pack $ "received pw: "++pw | 153 | -- S8.hPutStrLn stderr $ S8.pack $ "received pw: "++pw |