summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs')
-rw-r--r--tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs b/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
index 975ceb5b..5392d74b 100644
--- a/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
+++ b/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
@@ -7,8 +7,7 @@ import Test.Hspec
7import Test.QuickCheck 7import Test.QuickCheck
8 8
9import Data.BEncode as BE 9import Data.BEncode as BE
10import Data.Torrent 10import Data.Torrent as Torrent
11import Data.Torrent.Piece as P
12import Network.BitTorrent.Core 11import Network.BitTorrent.Core
13import Network.BitTorrent.Exchange.Message 12import Network.BitTorrent.Exchange.Message
14import Network.BitTorrent.Exchange.Session.Metadata 13import Network.BitTorrent.Exchange.Session.Metadata
@@ -36,7 +35,7 @@ simulateFetch :: InfoDict -> Updates (Maybe InfoDict)
36simulateFetch dict = go 35simulateFetch dict = go
37 where 36 where
38 blocks = chunkBy metadataPieceSize (BL.toStrict (BE.encode dict)) 37 blocks = chunkBy metadataPieceSize (BL.toStrict (BE.encode dict))
39 packPiece ix = P.Piece ix (blocks !! ix) 38 packPiece ix = Torrent.Piece ix (blocks !! ix)
40 ih = idInfoHash dict 39 ih = idInfoHash dict
41 40
42 go = do 41 go = do