From 2625c8b7a66c0245d1eacbe0076f04df6ae8acd8 Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 8 Jun 2018 23:34:14 -0400 Subject: bittorrent: Easier constructor for TrackerList. --- bittorrent/src/Network/BitTorrent/Tracker/RPC/HTTP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bittorrent/src/Network/BitTorrent/Tracker/RPC') 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 httpTracker :: BEncode a => Manager -> URI -> SimpleQuery -> IO a httpTracker Manager {..} uri q = packHttpException $ do - request <- fillRequest options q <$> setUri defaultRequest {- http-client instance for Request -} uri + request <- fillRequest options q <$> setUri defaultRequest uri response <- runResourceT $ httpLbs request httpMgr case BE.decode $ BL.toStrict $ responseBody response of Left msg -> throwIO (ParserFailure msg) -- cgit v1.2.3