Revert "Server.close for async server"

This reverts commit 94b52b3.
avsm · Jun 3, 2015 · cf2b8f2 · cf2b8f2
1 parent 395ef1a
commit cf2b8f2
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 3 deletions.
diff --git a/async/cohttp_async.ml b/async/cohttp_async.ml
@@ -357,5 +357,4 @@ module Server = struct
     >>| fun server ->
     { server }
 
-  let close { server } = Tcp.Server.close server
 end
diff --git a/async/cohttp_async.mli b/async/cohttp_async.mli
@@ -197,6 +197,4 @@ module Server : sig
     ('address, 'listening_on) Tcp.Where_to_listen.t
     -> (body:Body.t -> 'address -> Request.t -> response Deferred.t)
     -> ('address, 'listening_on) t Deferred.t
-
-  val close : (_, _) t -> unit Deferred.t
 end