diff options
author | Joe Crayne <joe@jerkface.net> | 2018-12-01 18:01:28 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2018-12-16 14:08:26 -0500 |
commit | 7a20395e8fe10625a239337aba24c3480e9b5e45 (patch) | |
tree | e30aa75710c8ac03ee547581cc424d1c05c80f98 /src/Network/Tox/DHT | |
parent | e9262f232d5acdd5ad2eda29cf805618dccbac28 (diff) |
Integrated TCP relay server.
Diffstat (limited to 'src/Network/Tox/DHT')
-rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs index d7f05dbc..2062b51d 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs | |||
@@ -340,9 +340,6 @@ unpong :: Message -> Maybe (Asymm (Nonce8,Pong)) | |||
340 | unpong (DHTPong asymm) = Just asymm | 340 | unpong (DHTPong asymm) = Just asymm |
341 | unpong _ = Nothing | 341 | unpong _ = Nothing |
342 | 342 | ||
343 | showHex :: BA.ByteArrayAccess ba => ba -> String | ||
344 | showHex bs = C8.unpack $ Base16.encode $ BA.convert bs | ||
345 | |||
346 | ping :: Client -> NodeInfo -> IO Bool | 343 | ping :: Client -> NodeInfo -> IO Bool |
347 | ping client addr = do | 344 | ping client addr = do |
348 | dput XPing $ show addr ++ " <-- ping" | 345 | dput XPing $ show addr ++ " <-- ping" |