From 20b55a89a4fb4a812a8cff5c9a4da2999c36eff4 Mon Sep 17 00:00:00 2001 From: Sam T Date: Thu, 4 Apr 2013 17:44:45 +0400 Subject: remove Read instances --- src/Network/Torrent/PWP.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Network/Torrent') diff --git a/src/Network/Torrent/PWP.hs b/src/Network/Torrent/PWP.hs index 059dd106..68105947 100644 --- a/src/Network/Torrent/PWP.hs +++ b/src/Network/Torrent/PWP.hs @@ -13,13 +13,13 @@ data BlockIx = BlockIx { ixPiece :: {-# UNPACK #-} !Int -- ^ Zero-based piece index. , ixOffset :: {-# UNPACK #-} !Int -- ^ Zero-based byte offset within the piece. , ixLength :: {-# UNPACK #-} !Int -- ^ Block size starting from offset. - } deriving (Show, Read, Eq) + } deriving (Show, Eq) data Block = Block { blkPiece :: Int -- ^ Zero-based piece index. , blkOffset :: Int -- ^ Zero-based byte offset within the piece. , blkData :: ByteString -- ^ Payload. - } deriving (Show, Read, Eq) + } deriving (Show, Eq) -- TODO comment message constructors data Message = KeepAlive @@ -33,7 +33,7 @@ data Message = KeepAlive | Piece Block | Cancel BlockIx | Port Int - deriving (Show, Read, Eq) + deriving (Show, Eq) getInt :: Get Int getInt = fromIntegral <$> getWord32be -- cgit v1.2.3