This commit is contained in:
Swrup 2025-10-03 18:35:21 +02:00
parent 724a3d2b68
commit 4930cd3ae3
5 changed files with 38 additions and 7 deletions

View file

@ -20,8 +20,14 @@ end = struct
type t = string
(* type for the value of header field *)
type header_etag_item = { weak: bool; value: string }
type header_value = Any_etag | Etag_list of header_etag_item list
type header_etag_item = {
weak: bool
; value: string
}
type header_value =
| Any_etag
| Etag_list of header_etag_item list
let pp_header_etag_item ppf { weak; value } =
if weak then Fmt.pf ppf {|W/"%s"|} value else Fmt.pf ppf {|"%s"|} value