fmt
This commit is contained in:
parent
724a3d2b68
commit
4930cd3ae3
5 changed files with 38 additions and 7 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue