diff options
author | joe <joe@jerkface.net> | 2018-06-08 22:10:26 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-08 22:10:42 -0400 |
commit | 71f8dde4f3b7d7cd2274c3bcf235287457969095 (patch) | |
tree | 05a621a4c7066ed78790e428e1c368d4ca6afc4a /bittorrent/src/Network/BitTorrent/Tracker/RPC | |
parent | e6e9799e4bed42daac27739d2cf2ae77414fb3b5 (diff) |
Bittorrent: Fix build of tracker-related modules.
Diffstat (limited to 'bittorrent/src/Network/BitTorrent/Tracker/RPC')
-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 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 | |||
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 def {- http-client instance for Request -} uri | 132 | request <- fillRequest options q <$> setUri defaultRequest {- http-client instance for Request -} 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) |