diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-06-02 05:55:01 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-06-02 05:55:01 +0400 |
commit | dea6c9b2ea1037ee54f1908ebc6a5e193e0cfac6 (patch) | |
tree | c2f1a0cef2de9211b0670c755f1f96de37e20002 /src/Network/BitTorrent | |
parent | 01f51b51af8a67516238bc7264079601a7e2ece5 (diff) |
~ Merge InfoHash to Torrent.
This allow to provide better interface.
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r-- | src/Network/BitTorrent/PeerWire/Handshake.hs | 2 | ||||
-rw-r--r-- | src/Network/BitTorrent/Tracker/Scrape.hs | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/PeerWire/Handshake.hs b/src/Network/BitTorrent/PeerWire/Handshake.hs index c4acf5cc..6f4598ae 100644 --- a/src/Network/BitTorrent/PeerWire/Handshake.hs +++ b/src/Network/BitTorrent/PeerWire/Handshake.hs | |||
@@ -27,10 +27,10 @@ import Data.ByteString (ByteString) | |||
27 | import qualified Data.ByteString as B | 27 | import qualified Data.ByteString as B |
28 | import qualified Data.ByteString.Char8 as BC | 28 | import qualified Data.ByteString.Char8 as BC |
29 | import Data.Serialize as S | 29 | import Data.Serialize as S |
30 | import Data.Torrent.InfoHash | ||
31 | import Network | 30 | import Network |
32 | import Network.Socket.ByteString | 31 | import Network.Socket.ByteString |
33 | 32 | ||
33 | import Data.Torrent | ||
34 | import Network.BitTorrent.Extension | 34 | import Network.BitTorrent.Extension |
35 | import Network.BitTorrent.Peer.ID | 35 | import Network.BitTorrent.Peer.ID |
36 | import Network.BitTorrent.Peer.ClientInfo | 36 | import Network.BitTorrent.Peer.ClientInfo |
diff --git a/src/Network/BitTorrent/Tracker/Scrape.hs b/src/Network/BitTorrent/Tracker/Scrape.hs index c3f4ee64..0181cf9f 100644 --- a/src/Network/BitTorrent/Tracker/Scrape.hs +++ b/src/Network/BitTorrent/Tracker/Scrape.hs | |||
@@ -28,10 +28,12 @@ import qualified Data.ByteString.Char8 as BC | |||
28 | import Data.Map (Map) | 28 | import Data.Map (Map) |
29 | import qualified Data.Map as M | 29 | import qualified Data.Map as M |
30 | import Data.Monoid | 30 | import Data.Monoid |
31 | import Data.Torrent.InfoHash | ||
32 | import Network.URI | 31 | import Network.URI |
33 | import Network.HTTP | 32 | import Network.HTTP |
34 | 33 | ||
34 | import Data.Torrent | ||
35 | |||
36 | |||
35 | -- | Information about particular torrent. | 37 | -- | Information about particular torrent. |
36 | data ScrapeInfo = ScrapeInfo { | 38 | data ScrapeInfo = ScrapeInfo { |
37 | siComplete :: Int | 39 | siComplete :: Int |