sendGetRequest url args = simpleHTTP (defaultGETRequest_ url') >>= getResponseBody
where url' = case parseURI url'' of
Just x -> x
- _ -> error $ "Bad tracker URL: " ++ (show url'')
+ _ -> error $ "Bad tracker URL: " ++ show url''
qstr = mkParams args
url'' = unpack $ concat [pack url, "?", qstr]