robur/blog.robur.coop
4
0
Fork 1
Code Issues 2 Pull requests Projects Releases Packages Wiki Activity Actions

blogger: adapt to mirage-flow 4

Browse source
This commit is contained in:
Hannes Mehnert 2024-06-17 16:16:58 +02:00
parent 29221af451
commit c74ae1da95
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/blogger.ml
View file

@ -85,6 +85,12 @@ module SSH = struct
close_in t.ic; close_in t.ic;
close_out t.oc; close_out t.oc;
Lwt.return_unit 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 end
let ssh_edn, ssh_protocol = Mimic.register ~name:"ssh" (module SSH) let ssh_edn, ssh_protocol = Mimic.register ~name:"ssh" (module SSH)