src/Tracker.hs

   1 module Tracker where
   2
   3 import qualified Bencode as Benc
   4 import Data.Conduit
   5 import Network.HTTP
   6
   7 type Url = String
   8
   9 requestUrl :: String
  10
  11
  12 connect :: Url -> String -> IO (Benc.BVal)
  13 connect url infoHash = case (parseUrl url) of
  14                         Nothing -> putStrLn "invalid tracker URL"
  15                         Just req -> let
  16