summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/BitTorrent/Exchange/Wire.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs
index f61e59fa..ae9babb3 100644
--- a/src/Network/BitTorrent/Exchange/Wire.hs
+++ b/src/Network/BitTorrent/Exchange/Wire.hs
@@ -458,6 +458,9 @@ data Connection = Connection
458 -- | Various stats about messages sent and received. Stats can be 458 -- | Various stats about messages sent and received. Stats can be
459 -- used to protect /this/ peer against flood attacks. 459 -- used to protect /this/ peer against flood attacks.
460 , connStats :: !(IORef ConnectionStats) 460 , connStats :: !(IORef ConnectionStats)
461
462-- -- | Max request queue length.
463-- , connMaxQueueLen :: !Int
461 } 464 }
462 465
463instance Pretty Connection where 466instance Pretty Connection where
@@ -670,7 +673,7 @@ connectWire hs addr extCaps wire =
670-- 673--
671-- This function can throw 'WireFailure' exception. 674-- This function can throw 'WireFailure' exception.
672-- 675--
673acceptWire :: Socket -> Wire () -> IO () 676acceptWire :: Socket -> PeerAddr -> Wire () -> IO ()
674acceptWire sock wire = do 677acceptWire sock peerAddr wire = do
675 bracket (return sock) close $ \ _ -> do 678 bracket (return sock) close $ \ _ -> do
676 error "acceptWire: not implemented" 679 error "acceptWire: not implemented"