sendGetRequest url args = simpleHTTP (defaultGETRequest_ url') >>= getResponseBody
where url' = case parseURI url'' of
Just x -> x
sendGetRequest url args = simpleHTTP (defaultGETRequest_ url') >>= getResponseBody
where url' = case parseURI url'' of
Just x -> x