Network.httpget -> Network.sendGetRequest

[functorrent.git] / src / FuncTorrent / Tracker.hs

diff --git a/src/FuncTorrent/Tracker.hs b/src/FuncTorrent/Tracker.hs
index cf1648e1d44a9fd29287b1f46b7d1363d145377f..11cecd50cb6fd68af3da5d4c440027cc5014ac59 100644 (file)
--- a/src/FuncTorrent/Tracker.hs
+++ b/src/FuncTorrent/Tracker.hs
@@ -21,7 +21,7 @@ import qualified Data.ByteString.Base16 as B16 (encode)
 
 import FuncTorrent.Bencode (BVal(..), decode)
 import FuncTorrent.Metainfo (Info(..), Metainfo(..))
-import FuncTorrent.Network (httpget)
+import FuncTorrent.Network (sendGetRequest)
 import FuncTorrent.Peer (Peer(..))
 import FuncTorrent.Utils (splitN)
 
@@ -125,7 +125,7 @@ trackerLoop :: PortNumber -> String -> Metainfo -> TState -> IO ByteString
 trackerLoop port peerId m st = do
   up <- liftIO $ readMVar $ uploaded st
   down <- liftIO $ readMVar $ downloaded st
-  resp <- liftIO $ httpget (head . announceList $ m) $ mkArgs port peerId up down m
+  resp <- liftIO $ sendGetRequest (head . announceList $ m) $ mkArgs port peerId up down m
   case decode resp of
     Left e -> return $ pack (show e)
     Right trackerInfo ->