Update cohttp/src/request.ml

mirage · Sep 1, 2020 · 207b564 · 207b564
1 parent 51e95e6
commit 207b564
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/cohttp/src/request.ml b/cohttp/src/request.ml
@@ -96,8 +96,7 @@ let uri { scheme ; resource ; headers ; meth ; _ } =
       | None -> Uri.of_string ""
       | Some host ->
         let host_uri = Uri.of_string ("//"^host) in
-        let uri = Uri.(with_host (of_string "") (host host_uri)) in
-        Uri.(with_port uri (port host_uri))
+        Uri.(make ?host:(host host_uri) ?port:(port host_uri) ()
       end
     | authority when meth = `CONNECT -> Uri.of_string ("//" ^ authority)
     | path ->