diff --git a/coq_ssh.ml b/coq_ssh.ml index 249d7ec..a3e3116 100644 --- a/coq_ssh.ml +++ b/coq_ssh.ml @@ -19,7 +19,7 @@ let () = (* protocol negotiation *) - let hello = "2.0 Hellosu\r\n" |> Bytes.of_string in + let hello = "2.0 SSH-2.0-CoqSSH0.1\r\n" |> Bytes.of_string in let bytes_written = write socket_fd hello 0 (Bytes.length hello) in printf "Sent greeting (%d bytes).\n" bytes_written;