debug_print (sprintf "HTTP response line (not yet parsed): %s" response_line);
try
(match Pcre.split ~rex:pieces_sep response_line with
debug_print (sprintf "HTTP response line (not yet parsed): %s" response_line);
try
(match Pcre.split ~rex:pieces_sep response_line with
(version_of_string version_raw, (* method *)
status_of_code (int_of_string code_raw)) (* status *)
| _ -> raise (Malformed_response response_line))
(version_of_string version_raw, (* method *)
status_of_code (int_of_string code_raw)) (* status *)
| _ -> raise (Malformed_response response_line))