let send cmd =
try
- ignore (Http_client.http_get cmd)
+ ignore (Http_user_agent.get cmd)
with
e -> raise (HttpClientError (Printexc.to_string e, cmd))
;;
let get uri =
try
- Http_client.http_get uri
+ Http_user_agent.get uri
with
e -> raise (HttpClientError (Printexc.to_string e, uri))
;;