From c74ae1da95f6901fe24d835a22f099fa1cd96909 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Mon, 17 Jun 2024 16:16:58 +0200 Subject: [PATCH] blogger: adapt to mirage-flow 4 --- src/blogger.ml | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/blogger.ml b/src/blogger.ml index 8c73e39..1f10188 100644 --- a/src/blogger.ml +++ b/src/blogger.ml @@ -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)