d

2021-07-13 14:25:54 -05:00 · 2021-07-13 14:25:54 -05:00 · 8e77ae451a
parent aba851bd0d
commit 8e77ae451a
1 changed files with 1 additions and 1 deletions
--- 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;