diff --git a/cohttp-eio/src/client.ml b/cohttp-eio/src/client.ml index bcd522c73..93fa9df06 100644 --- a/cohttp-eio/src/client.ml +++ b/cohttp-eio/src/client.ml @@ -1,5 +1,4 @@ open Eio.Std -include Client_intf open Utils type connection = Eio.Flow.two_way_ty r diff --git a/cohttp-eio/src/client_intf.ml b/cohttp-eio/src/client_intf.ml deleted file mode 100644 index 854ae5856..000000000 --- a/cohttp-eio/src/client_intf.ml +++ /dev/null @@ -1,65 +0,0 @@ -open Eio.Std - -module type BASE = sig - module Io : Cohttp.S.IO - - type 'a with_context - - val map_context : 'a with_context -> ('a -> 'b) -> 'b with_context - - val call : - (?headers:Http.Header.t -> - ?body:_ Eio.Flow.source -> - Http.Method.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP request with arbitrary method and a body. If the URI has a - host, we use a TCP connection, otherwise a UNIX domain socket. *) -end - -module type S = sig - include BASE - - val delete : - (?headers:Http.Header.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP DELETE request *) - - val get : - (?headers:Http.Header.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP GET request *) - - val head : - (?headers:Http.Header.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP HEAD request *) - - val patch : - (?headers:Http.Header.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP PATCH request *) - - val post : - (?headers:Http.Header.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP POST request *) - - val put : - (?headers:Http.Header.t -> - Uri.t -> - (Http.Response.t * Eio.Flow.source_ty r, string) Result.t Io.t) - with_context - (** Send an HTTP PUT request *) -end