sendAPIRequest_ :: LolRequest -> IO (Either LolError ByteString)
sendAPIRequest_ url_str = do
    resp <- curlGetResponse_ url_str [] :: IO (CurlResponse_ [(String, String)] ByteString)
    lolInfo tag $ "GET: " ++ url_str
    case respCurlCode resp of
        CurlOK  ->  return $ Right $ respBody resp
        _       ->  do
                        lolError tag $ "GET \"" ++ url_str ++ "\" gave response: " ++ show code
                        return $ Left code
                    where code = getErrorCode $ respStatus resp
sendAPIRequest_ :: LolRequest -> IO (Either LolError ByteString)
sendAPIRequest_ url_str = do
    resp <- curlGetResponse_ url_str [] :: IO (CurlResponse_ [(String, String)] ByteString)
    lolInfo tag $ "GET: " ++ url_str
    case respCurlCode resp of
        CurlOK  ->  return $ Right $ respBody resp
        _       ->  do
                        lolError tag $ "GET \"" ++ url_str ++ "\" gave response: " ++ show code
                        return $ Left code
                    where code = getErrorCode $ respStatus resp
sendAPIRequest_ url_str = do
    resp <- curlGetResponse_ url_str [] :: IO (CurlResponse_ [(String, String)] ByteString)
    lolInfo tag $ "GET: " ++ url_str
    case respCurlCode resp of
        CurlOK  ->  return $ Right $ respBody resp
        _       ->  do
                        lolError tag $ "GET \"" ++ url_str ++ "\" gave response: " ++ show code
                        return $ Left code
                    where code = getErrorCode $ respStatus resp