use Status.redirection variant instead of enumerating all; do not exp…

…ose resolve_location

src/http_lwt_client.ml

@@ -281,7 +281,7 @@ let one_request
         single_request he ?config ?authenticator ~meth ~headers ?body uri
         >>= fun (resp, body) ->
         match resp.status with
-        | `Moved_permanently | `Found | `See_other | `Temporary_redirect ->
+        | #Status.redirection ->
           (match Headers.get resp.headers "location" with
            | Some location ->
              let uri = resolve_location ~uri ~location in

src/http_lwt_client.mli

@@ -12,8 +12,6 @@ type response =
 
 val pp_response : Format.formatter -> response -> unit
 
-val resolve_location : uri:string -> location:string -> string
-
 val one_request
   : ?config : [ `HTTP_1_1 of Httpaf.Config.t | `H2 of H2.Config.t ]
   -> ?authenticator:X509.Authenticator.t