Network.httpget -> Network.sendGetRequest
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Fri, 2 Oct 2015 09:15:08 +0000 (14:45 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Fri, 2 Oct 2015 09:15:08 +0000 (14:45 +0530)
src/FuncTorrent/Network.hs
src/FuncTorrent/Tracker.hs

index 1a569a5737038bfa9437f711d61d51f90de8e290..210c44319d75d651caa226ed467e86d1a0cb4e59 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module FuncTorrent.Network
     (
-     httpget,
+     sendGetRequest,
      mkParams
     ) where
 
@@ -17,8 +17,8 @@ import Network.URI (parseURI)
 mkParams :: [(String, ByteString)] -> ByteString
 mkParams params = BC.intercalate "&" [concat [pack f, "=", s] | (f,s) <- params]
 
-httpget :: String -> [(String, ByteString)] -> IO ByteString
-httpget url args = simpleHTTP (defaultGETRequest_ url') >>= getResponseBody
+sendGetRequest :: String -> [(String, ByteString)] -> IO ByteString
+sendGetRequest url args = simpleHTTP (defaultGETRequest_ url') >>= getResponseBody
     where url' = case parseURI $ unpack $ concat [pack url, "?", qstr] of
                    Just x -> x
                    _ -> error "Bad tracker URL"
index cf1648e1d44a9fd29287b1f46b7d1363d145377f..11cecd50cb6fd68af3da5d4c440027cc5014ac59 100644 (file)
@@ -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 ->