header_utils.ml
quests
1 2 3 4 5 type header_list = (string * string) list [@@deriving show] let pp_header fmt header = Format.fprintf fmt "@[%s@ %a@]" "Header.of_list" pp_header_list (Cohttp.Header.to_list header)
1 2 3 4 5
type header_list = (string * string) list [@@deriving show] let pp_header fmt header = Format.fprintf fmt "@[%s@ %a@]" "Header.of_list" pp_header_list (Cohttp.Header.to_list header)