diff options
Diffstat (limited to 'dht/src/Network/Tox/Relay.hs')
-rw-r--r-- | dht/src/Network/Tox/Relay.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dht/src/Network/Tox/Relay.hs b/dht/src/Network/Tox/Relay.hs index 6a1f04fa..d2c8f98a 100644 --- a/dht/src/Network/Tox/Relay.hs +++ b/dht/src/Network/Tox/Relay.hs | |||
@@ -222,7 +222,7 @@ handlePacket cons thistcp thisKey crypto sendOnion sendToClient session = \case | |||
222 | RelayPing x -> sendToClient $ RelayPong x -- TODO x==0 is invalid. Do we care? | 222 | RelayPing x -> sendToClient $ RelayPong x -- TODO x==0 is invalid. Do we care? |
223 | 223 | ||
224 | OOBSend them bs -> do | 224 | OOBSend them bs -> do |
225 | dput XRelay $ "OOB send from " ++ showKey256 thisKey ++ " to " ++ showKey256 them | 225 | dput XRelayVerbose $ "OOB send from " ++ showKey256 thisKey ++ " to " ++ showKey256 them |
226 | m <- atomically $ Map.lookup them <$> readTVar cons | 226 | m <- atomically $ Map.lookup them <$> readTVar cons |
227 | forM_ m $ \(sendToThem,_) -> sendToThem $ OOBRecv thisKey bs | 227 | forM_ m $ \(sendToThem,_) -> sendToThem $ OOBRecv thisKey bs |
228 | 228 | ||
@@ -236,7 +236,7 @@ handlePacket cons thistcp thisKey crypto sendOnion sendToClient session = \case | |||
236 | i <- c2key con | 236 | i <- c2key con |
237 | sendToThem' <- IntMap.lookup i $ associated mySession | 237 | sendToThem' <- IntMap.lookup i $ associated mySession |
238 | return $ sendToThem' $ RelayData bs | 238 | return $ sendToThem' $ RelayData bs |
239 | dput XRelay $ "RelayData from " ++ showKey256 thisKey ++ " to conid=" | 239 | dput XRelayVerbose $ "RelayData from " ++ showKey256 thisKey ++ " to conid=" |
240 | ++ show con ++ maybe " (no key)" (\io -> " (associated key)") mbSendIt | 240 | ++ show con ++ maybe " (no key)" (\io -> " (associated key)") mbSendIt |
241 | sequence_ mbSendIt | 241 | sequence_ mbSendIt |
242 | 242 | ||