1 files changed, 3 insertions, 3 deletions

diff --git a/dht/src/Network/Tox/Transport.hs b/dht/src/Network/Tox/Transport.hs
index 12886245..ff99b747 100644
--- a/dht/src/Network/Tox/Transport.hs
+++ b/dht/src/Network/Tox/Transport.hs
@@ -38,14 +38,14 @@ toxTransport ::
           -> SockAddr -- ^ UDP bind-address
           -> UDPTransport
           -> Transport String ViaRelay B.ByteString
-          -> (TCP.NodeInfo -> RelayPacket -> IO ())   -- ^ TCP server-bound callback.
+          -> (TCP.NodeInfo -> RelayPacket -> IO ())   -- ^ (UNUSED) TCP server-bound callback.
           -> (Int -> OnionMessage Encrypted -> IO ()) -- ^ TCP client-bound callback.
           -> IO ( Transport String Multi.SessionAddress (CryptoPacket Encrypted)
                 , Transport String Multi.NodeInfo (DHTMessage Encrypted8)
                 , Transport String (OnionDestination RouteId) (OnionMessage Encrypted)
                 , Transport String AnnouncedRendezvous (PublicKey,OnionData)
                 , Transport String Multi.SessionAddress (Handshake Encrypted))
-toxTransport crypto orouter closeLookup addr udp relaynet tcp2server tcp2client = do
+toxTransport crypto orouter closeLookup addr udp relaynet _ tcp2client = do
     (netcrypto, udp0) <- partitionTransport parseCrypto encodeCrypto udp
     (dhtUDP,udp1) <- partitionTransportM (parseDHTAddr (pendingCookiesUDP crypto) nodeInfo)
                                       (fmap Just . encodeDHTAddr nodeAddr)
@@ -60,7 +60,7 @@ toxTransport crypto orouter closeLookup addr udp relaynet tcp2server tcp2client
         [ Multi.UDP :=> ByAddress dhtUDP
         , Multi.TCP :=> ByAddress dhtTCP
         ]
-    (onion1,udp2) <- partitionAndForkTransport tcp2server
+    (onion1,udp2) <- partitionTransportM
                              (parseOnionAddr $ lookupSender orouter)
                              (encodeOnionAddr crypto $ lookupRoute orouter)
                              udp1