http: simplify make

http/src/dune

@@ -1,3 +1,4 @@
 (library
  (name http)
+ (libraries uri)
  (public_name http))

http/src/http.ml

@@ -757,13 +757,15 @@ module Request = struct
         Transfer.has_body req.encoding
 
   let[@warning "-3"] make ?(meth = `GET) ?(version = `HTTP_1_1)
-      ?(encoding = Transfer.Chunked) ?(headers = Header.empty) resource =
-    let encoding =
-      match Header.get_transfer_encoding headers with
-      | Transfer.(Chunked | Fixed _) as enc -> enc
-      | Unknown -> encoding
-    in
-    { headers; meth; scheme = None; resource; version; encoding }
+      ?(headers = Header.empty) resource =
+    {
+      headers;
+      meth;
+      scheme = Uri.scheme resource;
+      resource = Uri.path_and_query resource;
+      version;
+      encoding = Transfer.Unknown;
+    }
 end
 
 module Response = struct
@@ -790,12 +792,7 @@ module Response = struct
     | i -> i
 
   let make ?(version = `HTTP_1_1) ?(status = `OK) ?(flush = false)
-      ?(encoding = Transfer.Chunked) ?(headers = Header.empty) () =
-    let encoding =
-      match Header.get_transfer_encoding headers with
-      | Transfer.(Chunked | Fixed _) as enc -> enc
-      | Unknown -> encoding
-    in
+      ?(encoding = Transfer.Unknown) ?(headers = Header.empty) () =
     { encoding; headers; version; flush; status }
 
   let headers t = t.headers

http/src/http.mli

@@ -385,18 +385,12 @@ module Request : sig
   (** Return true whether the connection should be reused *)
 
   val make :
-    ?meth:Method.t ->
-    ?version:Version.t ->
-    ?encoding:Transfer.encoding ->
-    ?headers:Header.t ->
-    string ->
-    t
+    ?meth:Method.t -> ?version:Version.t -> ?headers:Header.t -> Uri.t -> t
   (** [make res)] is [t] where [resource t] is [res]. The default values if not
       specified are as follows:
 
       - [meth] is [`GET]
       - [version] is [`HTTP_1_1]
-      - [encoding] is [Transfer.Chunked]
       - [headers] is [Header.empty] *)
 end