diff --git a/cohttp-eio/src/server.ml b/cohttp-eio/src/server.ml index b1b2fe6f8..51543246a 100644 --- a/cohttp-eio/src/server.ml +++ b/cohttp-eio/src/server.ml @@ -2,7 +2,7 @@ open Utils module IO = Io.IO type body = Body.t -type conn = IO.conn * Cohttp.Connection.t [@@warning "-3"] +type conn = IO.conn * Cohttp.Connection.t type writer = Http.Request.t * IO.oc type response = writer -> unit diff --git a/cohttp-lwt/src/server.ml b/cohttp-lwt/src/server.ml index 397b80ed9..8b89c5b23 100644 --- a/cohttp-lwt/src/server.ml +++ b/cohttp-lwt/src/server.ml @@ -1,6 +1,6 @@ open Lwt.Infix module Header = Cohttp.Header -module Connection = Cohttp.Connection [@@warning "-3"] +module Connection = Cohttp.Connection module Make (IO : S.IO) = struct module IO = IO diff --git a/cohttp-mirage/src/static.ml b/cohttp-mirage/src/static.ml index 26b4c9509..d7b7fc30b 100644 --- a/cohttp-mirage/src/static.ml +++ b/cohttp-mirage/src/static.ml @@ -18,7 +18,7 @@ *) module Key = Mirage_kv.Key -module Connection = Cohttp.Connection [@@warning "-3"] +module Connection = Cohttp.Connection module HTTP (FS : Mirage_kv.RO) (S : Cohttp_lwt.S.Server) = struct open Lwt.Infix diff --git a/cohttp/src/cohttp.ml b/cohttp/src/cohttp.ml index a5aa7db98..52035cc4a 100644 --- a/cohttp/src/cohttp.ml +++ b/cohttp/src/cohttp.ml @@ -2,7 +2,7 @@ module Accept = Accept module Auth = Auth module Body = Body module Conf = Conf -module Connection = Connection [@@deprecated "Connection.t values are useless."] +module Connection = Connection module Code = Code module Cookie = Cookie module Header = Header diff --git a/cohttp/src/server.ml b/cohttp/src/server.ml index 0c2675322..c83bf702c 100644 --- a/cohttp/src/server.ml +++ b/cohttp/src/server.ml @@ -2,7 +2,7 @@ module type S = sig module IO : S.IO type body - type conn = IO.conn * Connection.t [@@warning "-3"] + type conn = IO.conn * Connection.t type response type response_action =