From 5e92eec501e0a1ca6d09a01e078cf54ff3277273 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sat, 25 May 2013 21:41:15 +0400
Subject: ~ Use PortNumber instead of Word16 in Port message.

---
 src/Network/BitTorrent/PeerWire/Message.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Network/BitTorrent/PeerWire/Message.hs')

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
 
 import Control.Applicative
 import qualified Data.ByteString as B
-
 import Data.Serialize
+import Network
 
 import Network.BitTorrent.PeerWire.Block
 import Data.Bitfield
 
-import Data.Array
+
 
 -- | Messages used in communication between peers.
 --
@@ -48,7 +48,7 @@ data Message = KeepAlive
                -- used during "End Game".
              | Cancel   BlockIx
 
-             | Port     Int
+             | Port     PortNumber
 
                -- | BEP 6: Then peer have all pieces it might send the
                --   'HaveAll' message instead of 'Bitfield'
-- 
cgit v1.2.3