Module Httpaf_async.Server

val create_connection_handler : ?config:Httpaf.Config.t -> request_handler:('a -> Httpaf.Server_connection.request_handler) -> error_handler:('a -> Httpaf.Server_connection.error_handler) -> ([< Async.Socket.Address.t ] as 'a) -> ([ `Active ], 'a) Async.Socket.t -> unit Async.Deferred.t