diff options
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 |