From afef54f0fa5c7fee567d960d4183caa5817f46e5 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 10 May 2013 00:17:56 +0400
Subject: ~ Minor changes.

---
 src/Network/BitTorrent/PeerWire/Handshake.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Network')

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 @@
 --
 {-# LANGUAGE OverloadedStrings #-}
 module Network.BitTorrent.PeerWire.Handshake
-       ( Handshake, handshakeCaps
+       ( Handshake(..), handshakeCaps
        , handshake
        , ppHandshake
        , defaultHandshake, defaultBTProtocol, defaultReserved
@@ -41,7 +41,7 @@ data Handshake = Handshake {
     hsProtocol    :: ByteString
 
     -- | Reserved bytes used to specify supported BEP's.
-  , hsReserved    :: Word64
+  , hsReserved    :: Capabilities
 
     -- | Info hash of the info part of the metainfo file. that is
     -- transmitted in tracker requests. Info hash of the initiator
-- 
cgit v1.2.3