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

treat mirage (>=4.2.0) unikernels as unikernels, since they have x-mirage-opam-lock-location in the opam file

Browse source 
fixes #151
This commit is contained in:
Hannes Mehnert 2022-12-29 16:41:33 +01:00 committed by Robur
parent 40b31ed691
commit a0539604dc
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/model.ml
View file

@ -249,8 +249,15 @@ let infer_section_and_synopsis artifacts =
in in
let infer_section switch root = let infer_section switch root =
let root_pkg = root.OpamPackage.name in let root_pkg = root.OpamPackage.name in
let is_unikernel =
(* since mirage 4.2.0, the x-mirage-opam-lock-location is emitted *)
Option.value ~default:false
(Option.map (fun opam ->
OpamFile.OPAM.extended opam "x-mirage-opam-lock-location" Option.is_some)
(OpamPackage.Name.Map.find_opt root_pkg switch.OpamFile.SwitchExport.overlays))
in
let root_pkg_name = OpamPackage.Name.to_string root_pkg 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 is_unikernel || Astring.String.is_prefix ~affix:"mirage-unikernel-" root_pkg_name then
let metrics_influx = let metrics_influx =
let influx = OpamPackage.Name.of_string "metrics-influx" in let influx = OpamPackage.Name.of_string "metrics-influx" in
OpamPackage.Set.exists (fun p -> OpamPackage.Name.equal p.OpamPackage.name influx) OpamPackage.Set.exists (fun p -> OpamPackage.Name.equal p.OpamPackage.name influx)