From e6c068447a1ba88eb1805f9397657ef45a9eda2f Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 23 Jan 2017 07:04:42 -0500 Subject: PeerStore is now persistent. --- src/Network/BitTorrent/Tracker/RPC/HTTP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/BitTorrent/Tracker/RPC/HTTP.hs') diff --git a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs index de3fc5f5..bc52bddd 100644 --- a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs +++ b/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 uri + request <- fillRequest options q <$> setUri def {- 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