feat: add {Request,Response} getters (#202)

anmonteiro · Mar 3, 2024 · be29312 · be29312
1 parent 3870acb
commit be29312
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 0 deletions.
diff --git a/lib/piaf.mli b/lib/piaf.mli
@@ -464,6 +464,13 @@ module Request : sig
     ; body : Body.t
     }
 
+  val meth : t -> Method.t
+  val target : t -> string
+  val version : t -> Versions.HTTP.t
+  val headers : t -> Headers.t
+  val scheme : t -> Scheme.t
+  val body : t -> Body.t
+
   val create :
      scheme:Scheme.t
     -> version:Versions.HTTP.t
@@ -496,6 +503,11 @@ module Response : sig
     ; body : Body.t
     }
 
+  val status : t -> Status.t
+  val headers : t -> Headers.t
+  val version : t -> Versions.HTTP.t
+  val body : t -> Body.t
+
   val create :
      ?version:Versions.HTTP.t
     -> ?headers:Headers.t

diff --git a/lib/request.ml b/lib/request.ml
@@ -38,6 +38,13 @@ type t =
   ; body : Body.t
   }
 
+let meth { meth; _ } = meth
+let target { target; _ } = target
+let version { version; _ } = version
+let headers { headers; _ } = headers
+let scheme { scheme; _ } = scheme
+let body { body; _ } = body
+
 let uri { scheme; target; headers; version; _ } =
   let uri =
     let scheme = Scheme.to_string scheme in

diff --git a/lib/response.ml b/lib/response.ml
@@ -39,6 +39,11 @@ type t =
   ; body : Body.t
   }
 
+let status { status; _ } = status
+let headers { headers; _ } = headers
+let version { version; _ } = version
+let body { body; _ } = body
+
 (* TODO: Add content-length... *)
 let create
     ?(version = Versions.HTTP.HTTP_1_1)