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