diff options
Diffstat (limited to 'test/js/websockets_hello.ml')
| -rw-r--r-- | test/js/websockets_hello.ml | 13 |
1 files changed, 6 insertions, 7 deletions
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 @@ |