Module Ketrew_pure.Protocol.Process_sub_protocol

module Process_sub_protocol: sig .. end

module Command: sig .. end

type up = [ `Get_all_ssh_ids of string
       | `Get_logs of string * [ `Full ]
       | `Kill of string
       | `Send_command of Command.t
       | `Send_ssh_input of string * string
       | `Start_ssh_connection of
           [ `Configured of string | `New of string * string ] ] 

module Ssh_connection: sig .. end

module Command_output: sig .. end

type down = [ `Command_output of
           Command_output.t
       | `Error of string
       | `List_of_ssh_ids of
           Ssh_connection.t list
       | `Logs of string * string
       | `Ok ]