fix split of header values in httpaf/httpun server

OCamlPro · Dec 19, 2024 · 1b6d4cb · 1b6d4cb
1 parent 54028b1
commit 1b6d4cb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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 =