diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-27 14:40:30 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-27 14:40:30 +0400 |
commit | f48b30127efbbeeb30a1fdd6e202fc52e1ee6e3a (patch) | |
tree | 2d3ed980f9f20a2d759cc36ce762ca13996bb544 /src/Network/BitTorrent/Tracker/RPC/HTTP.hs | |
parent | 92c6787bfb345a3f068313480f389db1d2dc9f0d (diff) |
Update tracker RPC documentation
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC/HTTP.hs')
-rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/HTTP.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs index 00fc9331..37ddb5ad 100644 --- a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs +++ b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs | |||
@@ -5,10 +5,7 @@ | |||
5 | -- Stability : provisional | 5 | -- Stability : provisional |
6 | -- Portability : portable | 6 | -- Portability : portable |
7 | -- | 7 | -- |
8 | -- The tracker is an HTTP/HTTPS service used to discovery peers for | 8 | -- This module implement HTTP tracker protocol. |
9 | -- a particular existing torrent and keep statistics about the | ||
10 | -- swarm. This module also provides a way to easily request scrape | ||
11 | -- info for a particular torrent list. | ||
12 | -- | 9 | -- |
13 | -- For more information see: | 10 | -- For more information see: |
14 | -- <https://wiki.theory.org/BitTorrentSpecification#Tracker_HTTP.2FHTTPS_Protocol> | 11 | -- <https://wiki.theory.org/BitTorrentSpecification#Tracker_HTTP.2FHTTPS_Protocol> |
@@ -102,12 +99,15 @@ data Manager = Manager | |||
102 | , httpMgr :: !HTTP.Manager | 99 | , httpMgr :: !HTTP.Manager |
103 | } | 100 | } |
104 | 101 | ||
102 | -- | | ||
105 | newManager :: Options -> IO Manager | 103 | newManager :: Options -> IO Manager |
106 | newManager opts = Manager opts <$> HTTP.newManager (optHttpOptions opts) | 104 | newManager opts = Manager opts <$> HTTP.newManager (optHttpOptions opts) |
107 | 105 | ||
106 | -- | | ||
108 | closeManager :: Manager -> IO () | 107 | closeManager :: Manager -> IO () |
109 | closeManager Manager {..} = HTTP.closeManager httpMgr | 108 | closeManager Manager {..} = HTTP.closeManager httpMgr |
110 | 109 | ||
110 | -- | Normally you need to use 'Control.Monad.Trans.Resource.allocate'. | ||
111 | withManager :: Options -> (Manager -> IO a) -> IO a | 111 | withManager :: Options -> (Manager -> IO a) -> IO a |
112 | withManager opts = bracket (newManager opts) closeManager | 112 | withManager opts = bracket (newManager opts) closeManager |
113 | 113 | ||