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

Fix compilation

Browse source
This commit is contained in:
Robur 2023-03-13 15:25:52 +00:00
parent ae1d8c553f
commit e7b3e13597
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/model.ml
View file

@ -253,7 +253,7 @@ let infer_section_and_synopsis artifacts =
(* since mirage 4.2.0, the x-mirage-opam-lock-location is emitted *) (* since mirage 4.2.0, the x-mirage-opam-lock-location is emitted *)
Option.value ~default:false Option.value ~default:false
(Option.map (fun opam -> (Option.map (fun opam ->
OpamFile.OPAM.extended opam "x-mirage-opam-lock-location" Option.is_some) Option.is_some (OpamFile.OPAM.extended opam "x-mirage-opam-lock-location" Fun.id))
(OpamPackage.Name.Map.find_opt root_pkg switch.OpamFile.SwitchExport.overlays)) (OpamPackage.Name.Map.find_opt root_pkg switch.OpamFile.SwitchExport.overlays))
in in
let root_pkg_name = OpamPackage.Name.to_string root_pkg in let root_pkg_name = OpamPackage.Name.to_string root_pkg in