From 1b6d4cbfa41258283fe8b3d79c6918c5cee3c9b6 Mon Sep 17 00:00:00 2001 From: Maxime Levillain Date: Thu, 19 Dec 2024 17:57:54 +0100 Subject: [PATCH] fix split of header values in httpaf/httpun server --- src/server/httpaf/ezAPIServerHttpAf.ml | 3 ++- src/server/httpun/ezAPIServerHttpun.ml | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/server/httpaf/ezAPIServerHttpAf.ml b/src/server/httpaf/ezAPIServerHttpAf.ml index ba96174..1a44bdf 100644 --- a/src/server/httpaf/ezAPIServerHttpAf.ml +++ b/src/server/httpaf/ezAPIServerHttpAf.ml @@ -20,7 +20,8 @@ let mk_uri { Request.meth ; Request.target ; Request.headers ; _ } = let meth_from_httpaf req = Server_common.meth_from_ext req.Request.meth let headers_from_httpaf req = - Headers.fold ~f:(fun k v acc -> StringMap.add (String.lowercase_ascii k) [v] acc) + Headers.fold ~f:(fun k v acc -> + StringMap.add (String.lowercase_ascii k) (String.split_on_char ',' v) acc) ~init:StringMap.empty req.Request.headers let version_from_httpaf req = diff --git a/src/server/httpun/ezAPIServerHttpun.ml b/src/server/httpun/ezAPIServerHttpun.ml index f019d40..6470d5c 100644 --- a/src/server/httpun/ezAPIServerHttpun.ml +++ b/src/server/httpun/ezAPIServerHttpun.ml @@ -21,7 +21,7 @@ let mk_uri { Request.meth ; Request.target ; Request.headers ; _ } = let meth_from_httpun req = Server_common.meth_from_ext req.Request.meth let headers_from_httpun req = - Headers.fold ~f:(fun k v acc -> StringMap.add (String.lowercase_ascii k) [v] acc) + Headers.fold ~f:(fun k v acc -> StringMap.add (String.lowercase_ascii k) (String.split_on_char ',' v) acc) ~init:StringMap.empty req.Request.headers let version_from_httpun req =