diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-16 20:19:07 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-16 20:19:07 +0400 |
| commit | 0cf1c142d0e18eef05e1190d0fdaa94d2fa4df59 (patch) | |
| tree | b7103d0a55c665bd738eb23ccc3784f3e8d13c18 /src/Network/BitTorrent/Exchange/Wire.hs | |
| parent | f393a2ec1611d2e5587f6fc97317294377c72d5d (diff) | |
Add spec for AnnounceInfo encoding
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Wire.hs')
| -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" |