blogger: adapt to mirage-flow 4

This commit is contained in:
Hannes Mehnert 2024-06-17 16:16:58 +02:00
parent 29221af451
commit c74ae1da95

View file

@ -85,6 +85,12 @@ module SSH = struct
close_in t.ic;
close_out t.oc;
Lwt.return_unit
let shutdown t mode =
match mode with
| `read -> close_in t.ic ; Lwt.return_unit
| `write -> close_out t.oc ; Lwt.return_unit
| `read_write -> close t
end
let ssh_edn, ssh_protocol = Mimic.register ~name:"ssh" (module SSH)