summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/PeerWire/Message.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/PeerWire/Message.hs')
-rw-r--r--src/Network/BitTorrent/PeerWire/Message.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/PeerWire/Message.hs b/src/Network/BitTorrent/PeerWire/Message.hs
index 1c520221..5544dca7 100644
--- a/src/Network/BitTorrent/PeerWire/Message.hs
+++ b/src/Network/BitTorrent/PeerWire/Message.hs
@@ -6,13 +6,13 @@ module Network.BitTorrent.PeerWire.Message
6 6
7import Control.Applicative 7import Control.Applicative
8import qualified Data.ByteString as B 8import qualified Data.ByteString as B
9
10import Data.Serialize 9import Data.Serialize
10import Network
11 11
12import Network.BitTorrent.PeerWire.Block 12import Network.BitTorrent.PeerWire.Block
13import Data.Bitfield 13import Data.Bitfield
14 14
15import Data.Array 15
16 16
17-- | Messages used in communication between peers. 17-- | Messages used in communication between peers.
18-- 18--
@@ -48,7 +48,7 @@ data Message = KeepAlive
48 -- used during "End Game". 48 -- used during "End Game".
49 | Cancel BlockIx 49 | Cancel BlockIx
50 50
51 | Port Int 51 | Port PortNumber
52 52
53 -- | BEP 6: Then peer have all pieces it might send the 53 -- | BEP 6: Then peer have all pieces it might send the
54 -- 'HaveAll' message instead of 'Bitfield' 54 -- 'HaveAll' message instead of 'Bitfield'