1 files changed, 4 insertions, 3 deletions

diff --git a/dht/src/Network/BitTorrent/MainlineDHT.hs b/dht/src/Network/BitTorrent/MainlineDHT.hs
index d3904c40..a83cf740 100644
--- a/dht/src/Network/BitTorrent/MainlineDHT.hs
+++ b/dht/src/Network/BitTorrent/MainlineDHT.hs
@@ -545,15 +545,16 @@ mkNodeInfo nid addr = NodeInfo
     , nodePort = fromMaybe 0 $ sockAddrPort addr
     }
 
-newClient :: SwarmsDatabase -> SockAddr
+newClient :: SwarmsDatabase
+    -> SockAddr -- ^ Tentative IP address for this node (the bind address is suitable).
+    -> Transport String SockAddr ByteString -- ^ UDP transport
     -> IO ( MainlineClient
           , Routing
           , [NodeInfo] -> [NodeInfo] -> IO ()
           , [NodeInfo] -> [NodeInfo] -> IO ()
           , IO ()
           )
-newClient swarms addr = do
-    udp <- udpTransport addr
+newClient swarms addr udp = do
     nid <- NodeId <$> getRandomBytes 20
     let tentative_info = mkNodeInfo nid addr
     tentative_info6 <-