builder-web/lib/model.mli

type error = [ Caqti_error.call_or_retrieve | `Not_found | `File_error of Fpath.t | `Msg of string ]

val pp_error : Format.formatter -> error -> unit

val not_found : 'a option -> ('a, [> error ]) result Lwt.t

val staging : Fpath.t -> Fpath.t

val cleanup_staging : Fpath.t -> Caqti_lwt.connection ->
  (unit, [> `Msg of string ]) result Lwt.t

val build_artifact : Uuidm.t -> Fpath.t -> Caqti_lwt.connection ->
  (Builder_db.file, [> error ]) result Lwt.t

val build_artifact_data : Fpath.t -> Builder_db.file ->
  (string, [> error ]) result Lwt.t

val build_artifacts : Builder_db.id -> Caqti_lwt.connection ->
  (Builder_db.file list, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val build : Uuidm.t -> Caqti_lwt.connection ->
  (Builder_db.id * Builder_db.Build.t, [> error ]) result Lwt.t

val build_meta : Builder_db.id -> Caqti_lwt.connection ->
  ((Builder_db.Build.Meta.t * Builder_db.file option) option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val build_hash : Cstruct.t -> Caqti_lwt.connection ->
  ((string * Builder_db.Build.t) option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val build_exists : Uuidm.t -> Caqti_lwt.connection ->
  (bool, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val latest_build_uuid : Builder_db.id -> Caqti_lwt.connection ->
  (Uuidm.t, [> error ]) result Lwt.t

val latest_successful_build_uuid : Builder_db.id -> Caqti_lwt.connection ->
  (Uuidm.t option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val previous_successful_build : Builder_db.id -> Caqti_lwt.connection ->
  (Builder_db.Build.Meta.t option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val main_binary : Builder_db.id -> Fpath.t option -> Caqti_lwt.connection ->
  (Builder_db.file option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val job : string -> Caqti_lwt.connection ->
  ((Builder_db.Build.Meta.t * Builder_db.file option) list, [> error ]) result Lwt.t

val job_id : string -> Caqti_lwt.connection ->
  (Builder_db.id option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val jobs : Caqti_lwt.connection ->
  ((Builder_db.id * string) list, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val job_name : Builder_db.id -> Caqti_lwt.connection ->
  (string, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val user : string -> Caqti_lwt.connection ->
  ((Builder_db.id * Builder_web_auth.scrypt Builder_web_auth.user_info) option, [> Caqti_error.call_or_retrieve ]) result Lwt.t

val authorized : Builder_db.id -> string -> Caqti_lwt.connection -> (unit, [> Caqti_error.call_or_retrieve | `Msg of string ]) result Lwt.t

val add_build :
  Fpath.t ->
  Builder_db.id ->
  (Builder.script_job * Uuidm.t * (int * string) list * Ptime.t * Ptime.t *
   Builder.execution_result * (Fpath.t * string) list) ->
  Caqti_lwt.connection ->
  (unit, [> Caqti_error.call_or_retrieve | `Msg of string ]) result Lwt.t
Store files on disk 2021-01-21 16:51:58 +00:00			type error = [ Caqti_error.call_or_retrieve \| `Not_found \| `File_error of Fpath.t \| `Msg of string ]
Initial commit 2020-12-02 13:33:15 +00:00
Implement sqlite database backed builder-web 2021-01-08 12:47:17 +00:00			`val pp_error : Format.formatter -> error -> unit`
Implement meta data caching Also print builds by their start time instead of UUID 2020-12-07 14:43:54 +00:00
Generate opam compare links only for successful builds 2021-06-02 13:05:10 +00:00			`val not_found : 'a option -> ('a, [> error ]) result Lwt.t`

Filesystem transactions and cleanup 2021-03-24 13:49:23 +00:00			`val staging : Fpath.t -> Fpath.t`

			`val cleanup_staging : Fpath.t -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			(unit, [> `Msg of string ]) result Lwt.t
Filesystem transactions and cleanup 2021-03-24 13:49:23 +00:00
Do not read file if not modified 2021-06-05 06:13:46 +00:00			`val build_artifact : Uuidm.t -> Fpath.t -> Caqti_lwt.connection ->`
			`(Builder_db.file, [> error ]) result Lwt.t`

			`val build_artifact_data : Fpath.t -> Builder_db.file ->`
			`(string, [> error ]) result Lwt.t`
Add SHA256 & SHA512 digests of build artifacts 2020-12-14 07:18:13 +00:00
Implement sqlite database backed builder-web 2021-01-08 12:47:17 +00:00			`val build_artifacts : Builder_db.id -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`(Builder_db.file list, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Initial commit 2020-12-02 13:33:15 +00:00
Implement sqlite database backed builder-web 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`
Implement meta data caching Also print builds by their start time instead of UUID 2020-12-07 14:43:54 +00:00
Show latest build info in jobs view This does N+1 queries where N is the number of jobs. 2021-01-29 13:34:56 +00:00			`val build_meta : Builder_db.id -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`((Builder_db.Build.Meta.t * Builder_db.file option) option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Show latest build info in jobs view This does N+1 queries where N is the number of jobs. 2021-01-29 13:34:56 +00:00
Add /hash/:hash endpoint It looks up the given hash and finds the latest build producing an artifact with this hash. 2021-02-02 08:34:21 +00:00			`val build_hash : Cstruct.t -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`((string * Builder_db.Build.t) option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Add /hash/:hash endpoint It looks up the given hash and finds the latest build producing an artifact with this hash. 2021-02-02 08:34:21 +00:00
Also add the new function to the interface... 2021-01-22 13:21:15 +00:00			`val build_exists : Uuidm.t -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`(bool, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Also add the new function to the interface... 2021-01-22 13:21:15 +00:00
Link to opam diff Compare with latest build as well as previous build. 2021-04-23 13:00:12 +00:00			`val latest_build_uuid : Builder_db.id -> Caqti_lwt.connection ->`
			`(Uuidm.t, [> error ]) result Lwt.t`

Generate opam compare links only for successful builds 2021-06-02 13:05:10 +00:00			`val latest_successful_build_uuid : Builder_db.id -> Caqti_lwt.connection ->`
			`(Uuidm.t option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Add /build/latest/ redirect 2021-06-02 12:23:40 +00:00
Generate opam compare links only for successful builds 2021-06-02 13:05:10 +00:00			`val previous_successful_build : Builder_db.id -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`(Builder_db.Build.Meta.t option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Link to opam diff Compare with latest build as well as previous build. 2021-04-23 13:00:12 +00:00
Show build main binary and hash in job view 2021-01-28 11:17:06 +00:00			`val main_binary : Builder_db.id -> Fpath.t option -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`(Builder_db.file option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Migration code, model aware of main binary Sqlite3 application_id and user_version are now set to identify the database is a builder-web database, and the user_version represents the schema version. The 'build' table is extended with a 'main_binary' column. This represents the main binary artifact from the build. This is decided by there being exactly one file in bin/. A migration tool is written that does both migrations and rollbacks, and migration and rollback is implemented for the above mentioned change. 2021-01-27 20:25:51 +00:00
Implement sqlite database backed builder-web 2021-01-08 12:47:17 +00:00			`val job : string -> Caqti_lwt.connection ->`
Improve HTTP status codes (4xx on user data failure) Fixes #43 2021-06-09 09:48:51 +00:00			`((Builder_db.Build.Meta.t * Builder_db.file option) list, [> error ]) result Lwt.t`
Implement meta data caching Also print builds by their start time instead of UUID 2020-12-07 14:43:54 +00:00
Generate opam compare links only for successful builds 2021-06-02 13:05:10 +00:00			`val job_id : string -> Caqti_lwt.connection ->`
Improve HTTP status codes (4xx on user data failure) Fixes #43 2021-06-09 09:48:51 +00:00			`(Builder_db.id option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Generate opam compare links only for successful builds 2021-06-02 13:05:10 +00:00
Implement sqlite database backed builder-web 2021-01-08 12:47:17 +00:00			`val jobs : Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`((Builder_db.id * string) list, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
User authentication and upload endpoint 2021-01-20 21:50:35 +00:00
Link back to builds when comparing 2021-02-15 10:48:10 +00:00			`val job_name : Builder_db.id -> Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			`(string, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
Link back to builds when comparing 2021-02-15 10:48:10 +00:00
User authentication and upload endpoint 2021-01-20 21:50:35 +00:00			`val user : string -> Caqti_lwt.connection ->`
Add an access_list to grant per-job user upload permissions Fixes #36 2021-06-08 14:54:23 +00:00			`((Builder_db.id * Builder_web_auth.scrypt Builder_web_auth.user_info) option, [> Caqti_error.call_or_retrieve ]) result Lwt.t`
User authentication and upload endpoint 2021-01-20 21:50:35 +00:00
Improve HTTP status codes (4xx on user data failure) Fixes #43 2021-06-09 09:48:51 +00:00			val authorized : Builder_db.id -> string -> Caqti_lwt.connection -> (unit, [> Caqti_error.call_or_retrieve \| `Msg of string ]) result Lwt.t
User authentication and upload endpoint 2021-01-20 21:50:35 +00:00
			`val add_build :`
Store files on disk 2021-01-21 16:51:58 +00:00			`Fpath.t ->`
Add user column to build We want to track who uploaded what builds. A `nologin` user is created in the migration that owns all preexisting builds. 2021-06-09 11:54:24 +00:00			`Builder_db.id ->`
adapt to builder changes (job -> script_job) 2021-06-25 16:43:47 +00:00			`(Builder.script_job * Uuidm.t * (int * string) list * Ptime.t * Ptime.t *`
User authentication and upload endpoint 2021-01-20 21:50:35 +00:00			`Builder.execution_result * (Fpath.t * string) list) ->`
			`Caqti_lwt.connection ->`
More precise error type information 2021-06-01 08:33:35 +00:00			(unit, [> Caqti_error.call_or_retrieve \| `Msg of string ]) result Lwt.t