- (* debugging settings *)
-let debug = true;;
-let debug_print s = if debug then prerr_endline ("[HTTP-Getter] " ^ s);;
-let http_debug = false;;
-Http_common.debug := http_debug;;
-
-let http_get url =
-(* debug_print ("Downloading URL: " ^ url); *)
- try
- Some (Http_client.Convenience.http_get url)
- with Http_client.Http_error (code, _) -> None
-(*
- (debug_print
- (sprintf "Failed to download %s, HTTP response was %d" url code);
- None)
-*)
-;;