diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Wire.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs index 2a7d2aeb..5f7b0ebe 100644 --- a/src/Network/BitTorrent/Exchange/Wire.hs +++ b/src/Network/BitTorrent/Exchange/Wire.hs | |||
| @@ -673,7 +673,7 @@ connectWire hs addr extCaps wire = | |||
| 673 | -- | 673 | -- |
| 674 | -- This function can throw 'WireFailure' exception. | 674 | -- This function can throw 'WireFailure' exception. |
| 675 | -- | 675 | -- |
| 676 | acceptWire :: (IPAddress i) => Socket -> PeerAddr i -> Wire () -> IO () | 676 | acceptWire :: Socket -> PeerAddr IP -> Wire () -> IO () |
| 677 | acceptWire sock peerAddr wire = do | 677 | acceptWire sock peerAddr wire = do |
| 678 | bracket (return sock) close $ \ _ -> do | 678 | bracket (return sock) close $ \ _ -> do |
| 679 | error "acceptWire: not implemented" | 679 | error "acceptWire: not implemented" |