diff options
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Block.hs')
-rw-r--r-- | src/Network/BitTorrent/Exchange/Block.hs | 4 |
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 | ||
58 | import Prelude hiding (span) | 58 | import Prelude hiding (span) |
59 | import Control.Applicative | 59 | import Control.Applicative |
60 | import Data.Aeson.TH | ||
61 | import Data.ByteString as BS hiding (span) | 60 | import Data.ByteString as BS hiding (span) |
62 | import Data.ByteString.Lazy as BL hiding (span) | 61 | import Data.ByteString.Lazy as BL hiding (span) |
63 | import Data.ByteString.Lazy.Builder as BS | 62 | import Data.ByteString.Lazy.Builder as BS |
@@ -70,7 +69,6 @@ import Numeric | |||
70 | import Text.PrettyPrint as PP hiding ((<>)) | 69 | import Text.PrettyPrint as PP hiding ((<>)) |
71 | import Text.PrettyPrint.Class | 70 | import Text.PrettyPrint.Class |
72 | 71 | ||
73 | import Data.Torrent.JSON | ||
74 | import Data.Torrent.Piece | 72 | import 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. |
120 | instance Default BlockIx where | 116 | instance Default BlockIx where |
121 | def = BlockIx 0 0 defaultTransferSize | 117 | def = BlockIx 0 0 defaultTransferSize |