utils: dry_run in Term and Repo

lib/utils/repo.ml

@@ -93,6 +93,9 @@ let to_term ?(precious = []) ~outdir items =
 let build ?np ?mem ?logger ?keep_all ?precious ?bistro_dir ~outdir repo =
   Term.run ?np ?mem ?logger ?keep_all ?bistro_dir (to_term ~outdir ?precious repo)
 
+let dry_run ?precious repo =
+  Term.dry_run (to_term ~outdir:"res" ?precious repo)
+
 let add_prefix prefix items =
   List.map items ~f:(function
       | Repo_item (p, w) -> Repo_item (prefix @ p, w)

lib/utils/repo.mli

@@ -27,3 +27,7 @@ val build  :
   ?precious:Bistro.any_workflow list ->
   ?bistro_dir:string ->
   outdir:string -> t -> unit
+
+val dry_run :
+  ?precious:Bistro.any_workflow list ->
+  t -> Scheduler.dry_run

lib/utils/term.ml

@@ -188,3 +188,9 @@ let run ?np ?mem ?logger ?keep_all ?bistro_dir app =
     prerr_endline msg ;
     failwith "Some workflow failed!"
 
+let dry_run term =
+  let workflows = to_workflow_list term in
+  let dag, goals, precious = Scheduler.compile workflows in
+  let config = Task.config ~db_path:"_bistro" ~use_docker:true ~keep_all:true ~precious in
+  Scheduler.dry_run ~goals config dag
+  |> Lwt_main.run

lib/utils/term.mli

@@ -35,6 +35,9 @@ val run :
   ?bistro_dir:string ->
   'a t -> 'a
 
+val dry_run :
+  'a t -> Scheduler.dry_run
+
 module Syntax : sig
   module Let_syntax : sig
     type nonrec 'a t = 'a t