From e7b3e135974bf021221b163a36fe6798a7a819a9 Mon Sep 17 00:00:00 2001
From: Robur <team@robur.coop>
Date: Mon, 13 Mar 2023 15:25:52 +0000
Subject: [PATCH] Fix compilation

---
 lib/model.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/model.ml b/lib/model.ml
index 2623c67..91e25b4 100644
--- a/lib/model.ml
+++ b/lib/model.ml
@@ -253,7 +253,7 @@ let infer_section_and_synopsis artifacts =
       (* 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)
+             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))
     in
     let root_pkg_name = OpamPackage.Name.to_string root_pkg in