robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request 'Classify a build as monitoring build if mirage-monitoring is in the dependency cone' (#144) from fix-monitoring into main

Browse source 
Reviewed-on: https://git.robur.io/robur/builder-web/pulls/144
This commit is contained in:
Reynir Björnsson 2022-11-07 11:36:09 +00:00
commit 3f3de027ce
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lib/model.ml
View file

@ -248,12 +248,25 @@ let infer_section_and_synopsis artifacts =
| Some opam -> OpamFile.OPAM.synopsis opam, OpamFile.OPAM.descr_body opam | Some opam -> OpamFile.OPAM.synopsis opam, OpamFile.OPAM.descr_body opam
in in
let infer_section switch root = let infer_section switch root =
let root_pkg_name = OpamPackage.Name.to_string root.OpamPackage.name in let root_pkg = root.OpamPackage.name in
let root_pkg_name = OpamPackage.Name.to_string root_pkg in
if Astring.String.is_prefix ~affix:"mirage-unikernel-" root_pkg_name then if Astring.String.is_prefix ~affix:"mirage-unikernel-" root_pkg_name then
let influx = OpamPackage.Name.of_string "metrics-influx" in let metrics_influx =
if OpamPackage.Set.exists (fun p -> OpamPackage.Name.equal p.OpamPackage.name influx) let influx = OpamPackage.Name.of_string "metrics-influx" in
switch.OpamFile.SwitchExport.selections.OpamTypes.sel_installed OpamPackage.Set.exists (fun p -> OpamPackage.Name.equal p.OpamPackage.name influx)
then switch.OpamFile.SwitchExport.selections.OpamTypes.sel_installed
in
let mirage_monitoring =
let monitoring = OpamPackage.Name.of_string "mirage-monitoring" in
match OpamPackage.Name.Map.find_opt root_pkg switch.OpamFile.SwitchExport.overlays with
| None -> false
| Some opam ->
let depends = OpamFile.OPAM.depends opam in
OpamFormula.fold_left (fun acc (n', _) ->
acc || OpamPackage.Name.equal n' monitoring)
false depends
in
if metrics_influx || mirage_monitoring then
"Unikernels (with metrics reported to Influx)" "Unikernels (with metrics reported to Influx)"
else else
"Unikernels" "Unikernels"