summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent
diff options
context:
space:
mode:
authorSam T <pxqr.sta@gmail.com>2013-06-02 05:55:01 +0400
committerSam T <pxqr.sta@gmail.com>2013-06-02 05:55:01 +0400
commitdea6c9b2ea1037ee54f1908ebc6a5e193e0cfac6 (patch)
treec2f1a0cef2de9211b0670c755f1f96de37e20002 /src/Network/BitTorrent
parent01f51b51af8a67516238bc7264079601a7e2ece5 (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.hs2
-rw-r--r--src/Network/BitTorrent/Tracker/Scrape.hs4
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)
27import qualified Data.ByteString as B 27import qualified Data.ByteString as B
28import qualified Data.ByteString.Char8 as BC 28import qualified Data.ByteString.Char8 as BC
29import Data.Serialize as S 29import Data.Serialize as S
30import Data.Torrent.InfoHash
31import Network 30import Network
32import Network.Socket.ByteString 31import Network.Socket.ByteString
33 32
33import Data.Torrent
34import Network.BitTorrent.Extension 34import Network.BitTorrent.Extension
35import Network.BitTorrent.Peer.ID 35import Network.BitTorrent.Peer.ID
36import Network.BitTorrent.Peer.ClientInfo 36import 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
28import Data.Map (Map) 28import Data.Map (Map)
29import qualified Data.Map as M 29import qualified Data.Map as M
30import Data.Monoid 30import Data.Monoid
31import Data.Torrent.InfoHash
32import Network.URI 31import Network.URI
33import Network.HTTP 32import Network.HTTP
34 33
34import Data.Torrent
35
36
35-- | Information about particular torrent. 37-- | Information about particular torrent.
36data ScrapeInfo = ScrapeInfo { 38data ScrapeInfo = ScrapeInfo {
37 siComplete :: Int 39 siComplete :: Int