ocaml 3.09 transition

[helm.git] / helm / DEVEL / ocaml-http / http_parser.ml

diff --git a/helm/DEVEL/ocaml-http/http_parser.ml b/helm/DEVEL/ocaml-http/http_parser.ml
index ca17f02f7b5fd10a0f17e330f55487f40b1d52fe..af371bb1ebd613c0bab0db53d3b68fd75dceafba 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_parser.ml
+++ b/helm/DEVEL/ocaml-http/http_parser.ml
@@ -111,7 +111,7 @@ let parse_response_fst_line ic =
   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))