summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Exchange/Protocol.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Protocol.hs')
-rw-r--r--src/Network/BitTorrent/Exchange/Protocol.hs6
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
386instance Serialize PortNumber where
387 get = fromIntegral <$> S.getWord16be
388 {-# INLINE get #-}
389 put = S.putWord16be . fromIntegral
390 {-# INLINE put #-}
391
392instance Serialize Message where 386instance Serialize Message where
393 get = do 387 get = do
394 len <- getInt 388 len <- getInt