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