diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Protocol.hs')
-rw-r--r-- | src/Network/BitTorrent/Exchange/Protocol.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/Network/BitTorrent/Exchange/Protocol.hs b/src/Network/BitTorrent/Exchange/Protocol.hs index 6dce2b4a..573a6e5c 100644 --- a/src/Network/BitTorrent/Exchange/Protocol.hs +++ b/src/Network/BitTorrent/Exchange/Protocol.hs | |||
@@ -383,12 +383,6 @@ data Message = KeepAlive | |||
383 | | AllowedFast !PieceIx | 383 | | AllowedFast !PieceIx |
384 | deriving (Show, Eq) | 384 | deriving (Show, Eq) |
385 | 385 | ||
386 | instance Serialize PortNumber where | ||
387 | get = fromIntegral <$> S.getWord16be | ||
388 | {-# INLINE get #-} | ||
389 | put = S.putWord16be . fromIntegral | ||
390 | {-# INLINE put #-} | ||
391 | |||
392 | instance Serialize Message where | 386 | instance Serialize Message where |
393 | get = do | 387 | get = do |
394 | len <- getInt | 388 | len <- getInt |