experiment/coq-ssh
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

d

Browse source
This commit is contained in:
Michael Zhang 2021-07-13 14:25:54 -05:00
parent aba851bd0d
commit 8e77ae451a
Signed by: michael
GPG key ID: BDA47A31A3C8EE6B
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
coq_ssh.ml
View file

@ -19,7 +19,7 @@ let () =
(* protocol negotiation *) (* 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 let bytes_written = write socket_fd hello 0 (Bytes.length hello) in
printf "Sent greeting (%d bytes).\n" bytes_written; printf "Sent greeting (%d bytes).\n" bytes_written;