Module `Builder`Source

Sourceval src : Logs.src

Sourcemodule Log : Logs.LOG

Sourceval (let*) : ('a, 'b) result -> ('a -> ('c, 'b) result) -> ('c, 'b) result

Sourcetype data = (Fpath.t * string) list

Sourceval pp_data : Format.formatter -> (Fpath.t * string) list -> unit

Sourcetype script_job = {

name : string;
platform : string;
script : string;

}

Sourceval pp_script_job : Format.formatter -> script_job -> unit

Sourcetype orb_build_job = {

name : string;
opam_package : string;

}

Sourceval pp_orb_build_job : Format.formatter -> orb_build_job -> unit

Sourcetype execution_result =

| Exited of int
| Signalled of int
| Stopped of int
| Msg of string

Sourceval pp_execution_result : Format.formatter -> execution_result -> unit

Sourcetype period =

| Hourly
| Daily
| Weekly

Sourceval pp_period : Format.formatter -> period -> unit

Sourcetype job =

| Script_job of script_job
| Orb_build_job of orb_build_job

Sourceval pp_job : Format.formatter -> job -> unit

Sourceval job_name : job -> string

Sourceval job_equal : job -> job -> bool

Sourceval job_platform : job -> string option

Sourcetype schedule_item = {

next : Ptime.t;
period : period;
job : job;

}

Sourceval pp_schedule_item : Format.formatter -> schedule_item -> unit

Sourcetype info = {

schedule : schedule_item list;
queues : (string * job list) list;
running : (Ptime.t * Uuidm.t * script_job) list;

}

Source

val triple : 
  sep:unit Fmt.t ->
  'a Fmt.t ->
  'b Fmt.t ->
  'c Fmt.t ->
  Format.formatter ->
  ('c * 'b * 'a) ->
  unit

Sourceval pp_info : Format.formatter -> info -> unit

Sourcetype cmd =

| Job_requested of string
| Job_schedule of Uuidm.t * script_job
| Job_finished of Uuidm.t * execution_result * data
| Output of Uuidm.t * string
| Output_timestamped of Uuidm.t * int64 * string
| Schedule of period * script_job
| Unschedule of string
| Info
| Info_reply of info
| Observe of Uuidm.t
| Execute of string * string option
| Schedule_orb_build of period * orb_build_job
| Reschedule of string * Ptime.t * period option
| Drop_platform of string
| Client_hello of [ `Client | `Worker ] * int
| Server_hello
| Success
| Failure of string

Sourceval client_version : int

Sourceval worker_version : int

Sourceval version : string

Sourceval pp_cmd : Format.formatter -> cmd -> unit

Sourcetype state_item =

| Queue of string * job list
| Schedule of schedule_item

Sourceval pp_state_item : Format.formatter -> state_item -> unit

Sourcetype state = state_item list

Sourceval pp_state : state_item list Fmt.t

Sourcemodule Asn : sig ... end

Sourceval ign_intr : ('a -> 'b) -> 'a -> 'b

Sourceval read : Unix.file_descr -> (Cstruct.t, [> `Msg of string ]) result

Sourceval read_cmd : Unix.file_descr -> (cmd, [> `Msg of string ]) result

Sourceval write : Unix.file_descr -> Cstruct.t -> (unit, [> `Msg of string ]) result

Sourceval write_cmd : Unix.file_descr -> cmd -> (unit, [> `Msg of string ]) result

package builder

Module BuilderSource

Module `Builder`Source