diff options
| -rw-r--r-- | lib/stream.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index e2fe707..b4d5833 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -87,7 +87,7 @@ let negotiate feature portal {starttls; sasl; _} : unit Lwt.t = let* auth_result = authenticate portal sasl mechanisms in match auth_result with | Error err -> Lwt.fail_with (parse_auth_error err) - | Ok _ -> print_endline "Success!"; Lwt.return_unit + | Ok _ -> Lwt.return_unit else Lwt.fail InsufficientEncryption in let open Feature in |