2021-01-08 12:47:17 +00:00
|
|
|
type error = [ Caqti_error.call_or_retrieve | `Not_found | `File_error of Fpath.t ]
|
2020-12-02 13:33:15 +00:00
|
|
|
|
2021-01-08 12:47:17 +00:00
|
|
|
val pp_error : Format.formatter -> error -> unit
|
2020-12-07 14:43:54 +00:00
|
|
|
|
2021-01-08 12:47:17 +00:00
|
|
|
val build_artifact : Uuidm.t -> Fpath.t -> Caqti_lwt.connection ->
|
|
|
|
(string * Cstruct.t, [> error ]) result Lwt.t
|
2020-12-14 07:18:13 +00:00
|
|
|
|
2021-01-08 12:47:17 +00:00
|
|
|
val build_artifacts : Builder_db.id -> Caqti_lwt.connection ->
|
|
|
|
(Builder_db.file list, [> error ]) result Lwt.t
|
2020-12-02 13:33:15 +00:00
|
|
|
|
2021-01-08 12:47:17 +00:00
|
|
|
val build : Uuidm.t -> Caqti_lwt.connection ->
|
|
|
|
(Builder_db.id * Builder_db.Build.t, [> error ]) result Lwt.t
|
2020-12-07 14:43:54 +00:00
|
|
|
|
2021-01-08 12:47:17 +00:00
|
|
|
val job : string -> Caqti_lwt.connection ->
|
|
|
|
((Builder_db.id * Builder_db.Build.Meta.t) list, [> error ]) result Lwt.t
|
2020-12-07 14:43:54 +00:00
|
|
|
|
2021-01-08 12:47:17 +00:00
|
|
|
val jobs : Caqti_lwt.connection ->
|
|
|
|
(string list, [> error ]) result Lwt.t
|
2021-01-20 21:50:35 +00:00
|
|
|
|
|
|
|
val user : string -> Caqti_lwt.connection ->
|
|
|
|
(Builder_web_auth.user_info option, [> error ]) result Lwt.t
|
|
|
|
|
|
|
|
|
|
|
|
val add_build :
|
|
|
|
(Builder.job * Uuidm.t * (int * string) list * Ptime.t * Ptime.t *
|
|
|
|
Builder.execution_result * (Fpath.t * string) list) ->
|
|
|
|
Caqti_lwt.connection ->
|
|
|
|
(unit, [> error ]) result Lwt.t
|