diff options
| author | joe <joe@jerkface.net> | 2018-06-08 23:34:14 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-08 23:34:14 -0400 |
| commit | 2625c8b7a66c0245d1eacbe0076f04df6ae8acd8 (patch) | |
| tree | 89e4d9c7bc56c649d8ca8363234c81eb5fb02a70 /bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs | |
| parent | f02276f5240cf985ec3c4c3eaa5d1f5bc3daf4e6 (diff) | |
bittorrent: Easier constructor for TrackerList.
Diffstat (limited to 'bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs')
| -rw-r--r-- | bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs b/bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs index 44b123a3..6f7a53bf 100644 --- a/bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs +++ b/bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs | |||
| @@ -129,7 +129,7 @@ fillRequest Options {..} q r = r | |||
| 129 | 129 | ||
| 130 | httpTracker :: BEncode a => Manager -> URI -> SimpleQuery -> IO a | 130 | httpTracker :: BEncode a => Manager -> URI -> SimpleQuery -> IO a |
| 131 | httpTracker Manager {..} uri q = packHttpException $ do | 131 | httpTracker Manager {..} uri q = packHttpException $ do |
| 132 | request <- fillRequest options q <$> setUri defaultRequest {- http-client instance for Request -} uri | 132 | request <- fillRequest options q <$> setUri defaultRequest uri |
| 133 | response <- runResourceT $ httpLbs request httpMgr | 133 | response <- runResourceT $ httpLbs request httpMgr |
| 134 | case BE.decode $ BL.toStrict $ responseBody response of | 134 | case BE.decode $ BL.toStrict $ responseBody response of |
| 135 | Left msg -> throwIO (ParserFailure msg) | 135 | Left msg -> throwIO (ParserFailure msg) |