From 71f8dde4f3b7d7cd2274c3bcf235287457969095 Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 8 Jun 2018 22:10:26 -0400 Subject: Bittorrent: Fix build of tracker-related modules. --- 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 9b6e056a..44b123a3 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 def {- http-client instance for Request -} uri + request <- fillRequest options q <$> setUri defaultRequest {- http-client instance for Request -} uri response <- runResourceT $ httpLbs request httpMgr case BE.decode $ BL.toStrict $ responseBody response of Left msg -> throwIO (ParserFailure msg) -- cgit v1.2.3