diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-22 19:11:18 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-22 19:11:18 +0400 |
| commit | 1c8361e1a8fb9c1c9bb703958eebddfc204b223a (patch) | |
| tree | 9f1067cc863cbb352cd91c0cce1c1b82959d758c /src/Network/BitTorrent/Tracker/HTTP.hs | |
| parent | f8c8ee7ab66e3cf9202e14970757a2d8a94acdac (diff) | |
Add announce query parsing
Diffstat (limited to 'src/Network/BitTorrent/Tracker/HTTP.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/HTTP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Tracker/HTTP.hs b/src/Network/BitTorrent/Tracker/HTTP.hs index 2d49436d..b466b49e 100644 --- a/src/Network/BitTorrent/Tracker/HTTP.hs +++ b/src/Network/BitTorrent/Tracker/HTTP.hs | |||
| @@ -69,7 +69,7 @@ mkGET uri = Request uri GET [] "" | |||
| 69 | -- | 69 | -- |
| 70 | announceHTTP :: HTTPTracker -> AnnounceQuery -> IO AnnounceInfo | 70 | announceHTTP :: HTTPTracker -> AnnounceQuery -> IO AnnounceInfo |
| 71 | announceHTTP HTTPTracker {..} req = do | 71 | announceHTTP HTTPTracker {..} req = do |
| 72 | let r = mkGET (encodeRequest announceURI req) | 72 | let r = mkGET (renderAnnounceQuery announceURI req) |
| 73 | 73 | ||
| 74 | rawResp <- simpleHTTP r | 74 | rawResp <- simpleHTTP r |
| 75 | respBody <- getResponseBody rawResp | 75 | respBody <- getResponseBody rawResp |