Add tests for http tracker protocol

1 files changed, 9 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs
index 81208590..2006ae70 100644
--- a/src/Network/BitTorrent/Tracker/RPC/HTTP.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/HTTP.hs
@@ -51,8 +51,15 @@ data Connection = Connection
 putConnection :: Connection -> IO ()
 putConnection = undefined
 
-connect :: URI -> IO Connection
-connect = undefined
+-- TODO share manager between several threads
+connect :: URI -> ResourceT IO Connection
+connect uri = do
+  (_, m) <- allocate (newManager def) closeManager
+  return Connection
+    { announceURI = uri
+    , manager     = m
+    , connProxy   = Nothing
+    }
 
 setSimpleQuery :: SimpleQuery -> Request m -> Request m
 setSimpleQuery q r = r