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)