summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/Exchange/Block.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Block.hs')
-rw-r--r--src/Network/BitTorrent/Exchange/Block.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Network/BitTorrent/Exchange/Block.hs b/src/Network/BitTorrent/Exchange/Block.hs
index 6e5b960a..16c124e9 100644
--- a/src/Network/BitTorrent/Exchange/Block.hs
+++ b/src/Network/BitTorrent/Exchange/Block.hs
@@ -57,7 +57,6 @@ module Network.BitTorrent.Exchange.Block
57 57
58import Prelude hiding (span) 58import Prelude hiding (span)
59import Control.Applicative 59import Control.Applicative
60import Data.Aeson.TH
61import Data.ByteString as BS hiding (span) 60import Data.ByteString as BS hiding (span)
62import Data.ByteString.Lazy as BL hiding (span) 61import Data.ByteString.Lazy as BL hiding (span)
63import Data.ByteString.Lazy.Builder as BS 62import Data.ByteString.Lazy.Builder as BS
@@ -70,7 +69,6 @@ import Numeric
70import Text.PrettyPrint as PP hiding ((<>)) 69import Text.PrettyPrint as PP hiding ((<>))
71import Text.PrettyPrint.Class 70import Text.PrettyPrint.Class
72 71
73import Data.Torrent.JSON
74import Data.Torrent.Piece 72import Data.Torrent.Piece
75 73
76{----------------------------------------------------------------------- 74{-----------------------------------------------------------------------
@@ -114,8 +112,6 @@ data BlockIx = BlockIx {
114 , ixLength :: {-# UNPACK #-} !BlockSize 112 , ixLength :: {-# UNPACK #-} !BlockSize
115 } deriving (Show, Eq, Typeable) 113 } deriving (Show, Eq, Typeable)
116 114
117$(deriveJSON omitRecordPrefix ''BlockIx)
118
119-- | First block in torrent. Useful for debugging. 115-- | First block in torrent. Useful for debugging.
120instance Default BlockIx where 116instance Default BlockIx where
121 def = BlockIx 0 0 defaultTransferSize 117 def = BlockIx 0 0 defaultTransferSize