Expose run_input

quantifyearth · Jul 6, 2024 · 3242b3d · 3242b3d
1 parent 5f73e23
commit 3242b3d
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/lib/build.ml b/lib/build.ml
@@ -71,7 +71,7 @@ module Make (Raw_store : S.STORE) (Sandbox : S.SANDBOX) (Fetch : S.FETCHER) = st
  network : string list;
  mount_secrets : Config.Secret.t list;
  rom : Obuilder_spec.Rom.t list;
- } [@@deriving sexp_of]
+ } [@@deriving sexp]
 
  let run t ~switch ~log ~cache run_input =
  let input = sexp_of_run_input run_input in

diff --git a/lib/s.ml b/lib/s.ml
@@ -1,6 +1,6 @@
 open Sexplib.Std
 
-type id = string [@@deriving sexp_of]
+type id = string [@@deriving sexp]
 
 type tag = [
  | `Heading (** Introduces a new build step *)
@@ -10,6 +10,18 @@ type tag = [
 
 type logger = tag -> string -> unit
 
+type run_input = {
+ base : id;
+ workdir : string;
+ user : Obuilder_spec.user;
+ env : Config.env;
+ cmd : string;
+ shell : string list;
+ network : string list;
+ mount_secrets : Config.Secret.t list;
+ rom : Obuilder_spec.Rom.t list;
+} [@@deriving sexp]
+
 module type STORE = sig
  type t