summaryrefslogtreecommitdiff
path: root/src/Network/Tox/DHT
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2018-12-01 18:01:28 -0500
committerJoe Crayne <joe@jerkface.net>2018-12-16 14:08:26 -0500
commit7a20395e8fe10625a239337aba24c3480e9b5e45 (patch)
treee30aa75710c8ac03ee547581cc424d1c05c80f98 /src/Network/Tox/DHT
parente9262f232d5acdd5ad2eda29cf805618dccbac28 (diff)
Integrated TCP relay server.
Diffstat (limited to 'src/Network/Tox/DHT')
-rw-r--r--src/Network/Tox/DHT/Handlers.hs3
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))
340unpong (DHTPong asymm) = Just asymm 340unpong (DHTPong asymm) = Just asymm
341unpong _ = Nothing 341unpong _ = Nothing
342 342
343showHex :: BA.ByteArrayAccess ba => ba -> String
344showHex bs = C8.unpack $ Base16.encode $ BA.convert bs
345
346ping :: Client -> NodeInfo -> IO Bool 343ping :: Client -> NodeInfo -> IO Bool
347ping client addr = do 344ping client addr = do
348 dput XPing $ show addr ++ " <-- ping" 345 dput XPing $ show addr ++ " <-- ping"