request: Make client_addr public

src/Tiny_httpd_server.ml

@@ -176,6 +176,7 @@ module Request = struct
 
   let headers self = self.headers
   let host self = self.host
+  let client_addr self = self.client_addr
   let meth self = self.meth
   let path self = self.path
   let body self = self.body

src/Tiny_httpd_server.mli

@@ -127,6 +127,10 @@ module Request : sig
   val host : _ t -> string
   (** Host field of the request. It also appears in the headers. *)
 
+  val client_addr : _ t -> Unix.sockaddr
+  (** Client address of the request.
+      @since NEXT_RELEASE *)
+
   val meth : _ t -> Meth.t
   (** Method for the request. *)