jon.recoil.org
A fork of mtelver's day10 project
1type t = { config : Config.t }
2
3let init ~(config : Config.t) = { config }
4let deinit ~t:_ = ()
5let config ~t = t.config
6
7let layer_hash ~t deps =
8 let hashes =
9 List.map
10 (fun opam ->
11 opam |> Util.opam_file t.config.opam_repositories |> Option.get |> OpamFile.OPAM.effective_part |> OpamFile.OPAM.write_to_string
12 |> OpamHash.compute_from_string |> OpamHash.to_string)
13 deps
14 in
15 String.concat " " hashes |> Digest.string |> Digest.to_hex
16
17let run ~t:_ ~temp_dir:_ _opam_repository _build_log = 0
18
19let build ~t ~temp_dir _build_log _pkg ordered_hashes =
20 let config = t.config in
21 let () =
22 List.iter
23 (fun hash ->
24 let path = Path.(config.dir / hash) in
25 let e = if Sys.file_exists path then "ok" else "not found" in
26 Printf.printf "%s: %s\n" path e)
27 ordered_hashes
28 in
29 let _rootfs = Path.(temp_dir / "fs") in
30 0
31
32let doc_layer_hash ~t:_ ~build_hash:_ ~dep_doc_hashes:_ ~ocaml_version:_ ~blessed:_ ~compiler_layers:_ = ""
33
34(* Documentation generation not supported in dummy container *)
35let generate_docs ~t:_ ~build_layer_dir:_ ~doc_layer_dir:_ ~dep_doc_hashes:_ ~pkg:_ ~installed_libs:_ ~installed_docs:_ ~phase:_ ~ocaml_version:_ ~compiler_layers:_ = None
36
37let jtw_layer_hash ~t:_ ~build_hash:_ ~ocaml_version:_ ~compiler_layers:_ = ""
38
39(* JTW generation not supported in dummy container *)
40let generate_jtw ~t:_ ~build_layer_dir:_ ~jtw_layer_dir:_ ~dep_build_hashes:_ ~pkg:_ ~installed_libs:_ ~ocaml_version:_ ~compiler_layers:_ = None
41
42let build_solution_worker ~t:_ ~dep_build_hashes:_ ~ocaml_version:_ ~solution_packages:_ ~compiler_layers:_ = (1, "")