From 787c431aa66b343d5c57c348ce50f922a3500e77 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Wed, 25 Jun 2025 00:46:39 +0200 Subject: fix(websockets_hello): stop picking up authenticate's features stream --- test/js/websockets_hello.ml | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'test') diff --git a/test/js/websockets_hello.ml b/test/js/websockets_hello.ml index 91c2b70..952be45 100644 --- a/test/js/websockets_hello.ml +++ b/test/js/websockets_hello.ml @@ -18,13 +18,12 @@ let rec run t = else () let main (stream, push) config = - let* _stream = Stream.get stream - in let+ _auth = Sasl.authenticate (stream, push) config - in match _auth with - | Error (NotAuthorized, Some (_, text)) -> print_endline ("Not authorized: " ^ text) - | Error (MalformedRequest, Some (_, text)) -> print_endline ("Malformed request: " ^ text) - | Error _ -> print_endline "Error!" - | Ok _ -> print_endline "Success!" + let+ _auth = Sasl.authenticate (stream, push) config + in match _auth with + | Error (NotAuthorized, Some (_, text)) -> print_endline ("Not authorized: " ^ text) + | Error (MalformedRequest, Some (_, text)) -> print_endline ("Malformed request: " ^ text) + | Error _ -> print_endline "Error!" + | Ok _ -> print_endline "Success!" let () = run @@ -- cgit v1.2.3