summaryrefslogtreecommitdiff
path: root/tests/Network
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2014-04-04 21:44:18 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2014-04-04 21:44:18 +0400
commit052bed30a3d83aa8fb7b8b42509ad96f573439af (patch)
tree106b44c06226595870c3bf54f890824eec2b7f0e /tests/Network
parent88ef120511caae5ed74a48a87617b43aec4b7f76 (diff)
Move HashList to Torrent module
Diffstat (limited to 'tests/Network')
-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