robur/vif
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix vif on firefox

Browse source
This commit is contained in:
Calascibetta Romain 2025-02-17 18:29:09 +01:00
parent c4cb5d19f3
commit 95ebaee99a
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
examples/09-jwt/main.ml
View file

@ -75,7 +75,7 @@ let default req target server _cfg =
| None -> | None ->
let field = "content-type" in let field = "content-type" in
let* () = Response.add ~field "text/plain; charset=utf-8" in let* () = Response.add ~field "text/plain; charset=utf-8" in
let* () = Response.with_string req "Unauthorized place" in let* () = Response.with_string req "Unauthorized place\n" in
Response.respond `Unauthorized Response.respond `Unauthorized
| Some { username } -> | Some { username } ->
let field = "content-type" in let field = "content-type" in

5
lib/vif/vif_response.ml
View file

@ -161,7 +161,10 @@ let run : type a p q. Vif_request0.t -> p state -> (p, q, a) t -> q state * a =
headers := (k, v) :: Vif_headers.rem !headers k; headers := (k, v) :: Vif_headers.rem !headers k;
(state, ()) (state, ())
| Empty, Stream stream -> (Filled stream, ()) | Empty, Stream stream -> (Filled stream, ())
| Empty, String str -> (Filled (Stream.Stream.singleton str), ()) | Empty, String str ->
if Vif_request0.version req = 1
then headers := Vif_headers.add_unless_exists !headers "connection" "close";
(Filled (Stream.Stream.singleton str), ())
| Filled stream, Respond status -> | Filled stream, Respond status ->
let headers = !headers in let headers = !headers in
let headers, stream = let headers, stream =