diff options
Diffstat (limited to 'src/Network/Tox')
-rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 3 | ||||
-rw-r--r-- | src/Network/Tox/Onion/Transport.hs | 1 | ||||
-rw-r--r-- | src/Network/Tox/Relay.hs | 1 |
3 files changed, 1 insertions, 4 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" |
diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs index f6d9ca31..3d8a9e93 100644 --- a/src/Network/Tox/Onion/Transport.hs +++ b/src/Network/Tox/Onion/Transport.hs | |||
@@ -51,6 +51,7 @@ module Network.Tox.Onion.Transport | |||
51 | , RouteId(..) | 51 | , RouteId(..) |
52 | , routeId | 52 | , routeId |
53 | , rewrap | 53 | , rewrap |
54 | , putRequest | ||
54 | ) where | 55 | ) where |
55 | 56 | ||
56 | import Network.Address (fromSockAddr,toSockAddr,setPort,either4or6,sockAddrPort) | 57 | import Network.Address (fromSockAddr,toSockAddr,setPort,either4or6,sockAddrPort) |
diff --git a/src/Network/Tox/Relay.hs b/src/Network/Tox/Relay.hs index 17bbc379..7af14ed6 100644 --- a/src/Network/Tox/Relay.hs +++ b/src/Network/Tox/Relay.hs | |||
@@ -28,7 +28,6 @@ import Data.Tox.Relay | |||
28 | import Network.Address (getBindAddress) | 28 | import Network.Address (getBindAddress) |
29 | import Network.SocketLike | 29 | import Network.SocketLike |
30 | import Network.StreamServer | 30 | import Network.StreamServer |
31 | import Network.Tox (newCrypto) | ||
32 | import Network.Tox.Onion.Transport hiding (encrypt,decrypt) | 31 | import Network.Tox.Onion.Transport hiding (encrypt,decrypt) |
33 | 32 | ||
34 | 33 | ||