package current_ssh

  1. Overview
  2. Docs
package current_ssh
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file run.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
open Lwt.Infix

type t = string

let id = "ssh-run"

module Key = Current.String
module Value = struct
  type t = {
    args: string list;
  }

  let digest { args } =
    Yojson.Safe.to_string @@ `Assoc [
      "args", `String (String.concat " " args)
    ]
end
module Outcome = Current.Unit

let command ~ssh_host args =
  let cmd = ["ssh"; ssh_host] @ args in
  ("", Array.of_list cmd)

let publish t job _key { Value.args } =
  Current.Job.start job ~level:Current.Level.Above_average >>= fun () ->
  Current.Process.exec ~cancellable:true ~job (command ~ssh_host:t args)

let pp f (key, { Value.args }) = Fmt.pf f "%s: %s" key (String.concat " " args)

let auto_cancel = false