diff options
| author | joe <joe@jerkface.net> | 2017-01-23 07:04:42 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-01-23 07:04:42 -0500 |
| commit | e6c068447a1ba88eb1805f9397657ef45a9eda2f (patch) | |
| tree | fa52cb81ee58fae82cccaff4c8299fe770ae7377 /src/Network/BitTorrent/Tracker/RPC/HTTP.hs | |
| parent | d2adf592c46afa0f8c0640dec4715ee74f4776ca (diff) | |
PeerStore is now persistent.
Diffstat (limited to 'src/Network/BitTorrent/Tracker/RPC/HTTP.hs')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/HTTP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 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 uri | 132 | request <- fillRequest options q <$> setUri def {- 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) |