simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(headers): set will not reallocate whole list if not needed

Browse source
This commit is contained in:
Simon Cruanes 2025-04-15 10:40:37 -04:00
parent cdac33689a
commit d7a5cca1d4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/core/headers.ml
View file

@ -35,7 +35,15 @@ let get ?(f = fun x -> x) x h =
try Some (get_exn ~f x h) with Not_found -> None try Some (get_exn ~f x h) with Not_found -> None
let remove x h = List.filter (fun (k, _) -> not (equal_name_ k x)) h let remove x h = List.filter (fun (k, _) -> not (equal_name_ k x)) h
let set x y h = (x, y) :: List.filter (fun (k, _) -> not (equal_name_ k x)) h
let set x y h =
let h =
if contains x h then
remove x h
else
h
in
(x, y) :: h
let pp out l = let pp out l =
let pp_pair out (k, v) = Format.fprintf out "@[<h>%s: %s@]" k v in let pp_pair out (k, v) = Format.fprintf out "@[<h>%s: %s@]" k v in