type t = { config : Config.t } let init ~(config : Config.t) = { config } let deinit ~t:_ = () let config ~t = t.config let layer_hash ~t deps = let hashes = List.map (fun opam -> opam |> Util.opam_file t.config.opam_repositories |> Option.get |> OpamFile.OPAM.effective_part |> OpamFile.OPAM.write_to_string |> OpamHash.compute_from_string |> OpamHash.to_string) deps in String.concat " " hashes |> Digest.string |> Digest.to_hex let run ~t:_ ~temp_dir:_ _opam_repository _build_log = 0 let build ~t ~temp_dir _build_log _pkg ordered_hashes = let config = t.config in let () = List.iter (fun hash -> let path = Path.(config.dir / hash) in let e = if Sys.file_exists path then "ok" else "not found" in Printf.printf "%s: %s\n" path e) ordered_hashes in let _rootfs = Path.(temp_dir / "fs") in 0 let doc_layer_hash ~t:_ ~build_hash:_ ~dep_doc_hashes:_ ~ocaml_version:_ ~blessed:_ ~compiler_layers:_ = "" (* Documentation generation not supported in dummy container *) let generate_docs ~t:_ ~build_layer_dir:_ ~doc_layer_dir:_ ~dep_doc_hashes:_ ~pkg:_ ~installed_libs:_ ~installed_docs:_ ~phase:_ ~ocaml_version:_ ~compiler_layers:_ = None let jtw_layer_hash ~t:_ ~build_hash:_ ~ocaml_version:_ ~compiler_layers:_ = "" (* JTW generation not supported in dummy container *) let generate_jtw ~t:_ ~build_layer_dir:_ ~jtw_layer_dir:_ ~dep_build_hashes:_ ~pkg:_ ~installed_libs:_ ~ocaml_version:_ ~compiler_layers:_ = None let build_solution_worker ~t:_ ~dep_build_hashes:_ ~ocaml_version:_ ~solution_packages:_ ~compiler_layers:_ = (1, "")