Module Ketrew_pure.Program

module Program: sig .. end

The “things” to run on a given host.

type t = [ `And of t list
       | `Exec of string list
       | `Shell_command of string ]

val to_yojson : t -> Yojson.Safe.json

val of_yojson : Yojson.Safe.json -> [ `Error of string | `Ok of t ]

A program.

val to_shell_commands : t -> string list

Convert a program to a list of shell commands.

val to_single_shell_command : t -> string

Convert a program to a shell command.

val log : t -> Internal_pervasives.Log.t

Create a Log.t document to display a program.

val to_string_hum : t -> string

Get a display-friendly string of a program.

val markup : ?flatten:bool ->
       t -> Internal_pervasives.Display_markup.t