Fixes: 99c4356 ("Transition from exception-raising Unix.getenv to Sys…

….getenv_opt with") Signed-off-by: Andrii Sultanov <[email protected]>
xapi-project · Jul 9, 2024 · d26f870 · d26f870
1 parent 5519cf9
commit d26f870
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ocaml/xapi-idl/lib/xcp_service.ml b/ocaml/xapi-idl/lib/xcp_service.ml
@@ -371,10 +371,10 @@ let canonicalise x =
       split_c ':' (Option.value (Sys.getenv_opt "PATH") ~default:"")
     in
     let first_hit =
-      List.find_opt
+      List.find_map
         (fun path ->
           let possibility = Filename.concat path x in
-          Sys.file_exists possibility
+          if Sys.file_exists possibility then Some possibility else None
         )
         (paths @ !extra_search_path)
     in