diff options
Diffstat (limited to 'src/Network/Tox/DHT/Handlers.hs')
| -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" |