Catch HttpException from setUri function

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs
index 37ddb5ad..33ceb077 100644
--- a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs
@@ -127,9 +127,9 @@ fillRequest Options {..} q r = r
       | otherwise = a <> "&" <> b
 
 httpTracker :: BEncode a => Manager -> URI -> SimpleQuery -> IO a
-httpTracker Manager {..} uri q = do
+httpTracker Manager {..} uri q = packHttpException $ do
   request  <- fillRequest options q <$> setUri def uri
-  response <- packHttpException $ runResourceT $ httpLbs request httpMgr
+  response <- runResourceT $ httpLbs request httpMgr
   case BE.decode $ BL.toStrict $ responseBody response of
     Left  msg  -> throwIO (ParserFailure msg)
     Right info -> return info