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