diff options
Diffstat (limited to 'src/Network/BitTorrent/PeerWire/Handshake.hs')
-rw-r--r-- | src/Network/BitTorrent/PeerWire/Handshake.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/PeerWire/Handshake.hs b/src/Network/BitTorrent/PeerWire/Handshake.hs index 770ca3ce..c4acf5cc 100644 --- a/src/Network/BitTorrent/PeerWire/Handshake.hs +++ b/src/Network/BitTorrent/PeerWire/Handshake.hs | |||
@@ -12,7 +12,7 @@ | |||
12 | -- | 12 | -- |
13 | {-# LANGUAGE OverloadedStrings #-} | 13 | {-# LANGUAGE OverloadedStrings #-} |
14 | module Network.BitTorrent.PeerWire.Handshake | 14 | module Network.BitTorrent.PeerWire.Handshake |
15 | ( Handshake, handshakeCaps | 15 | ( Handshake(..), handshakeCaps |
16 | , handshake | 16 | , handshake |
17 | , ppHandshake | 17 | , ppHandshake |
18 | , defaultHandshake, defaultBTProtocol, defaultReserved | 18 | , defaultHandshake, defaultBTProtocol, defaultReserved |
@@ -41,7 +41,7 @@ data Handshake = Handshake { | |||
41 | hsProtocol :: ByteString | 41 | hsProtocol :: ByteString |
42 | 42 | ||
43 | -- | Reserved bytes used to specify supported BEP's. | 43 | -- | Reserved bytes used to specify supported BEP's. |
44 | , hsReserved :: Word64 | 44 | , hsReserved :: Capabilities |
45 | 45 | ||
46 | -- | Info hash of the info part of the metainfo file. that is | 46 | -- | Info hash of the info part of the metainfo file. that is |
47 | -- transmitted in tracker requests. Info hash of the initiator | 47 | -- transmitted in tracker requests. Info hash of the initiator |