refactor(pkg): use [Stdune] more (#11249)

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Dec 27, 2024 · 4f15a12 · 4f15a12
1 parent 3e93d6a
commit 4f15a12
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/opam-0install/lib/solver.ml b/src/opam-0install/lib/solver.ml
@@ -1,3 +1,4 @@
+open Stdune
 open Fiber.O
 open Pp.O
 
@@ -66,7 +67,7 @@ module Make (Context : S.CONTEXT) = struct
   ;;
 
   let diagnostics_rolemap req =
-    Solver.do_solve req ~closest_match:true >>| Option.get >>= Diagnostics.of_result
+    Solver.do_solve req ~closest_match:true >>| Option.value_exn >>= Diagnostics.of_result
   ;;
 
   let diagnostics ?(verbose = false) req =
@@ -80,6 +81,6 @@ module Make (Context : S.CONTEXT) = struct
     Solver.Output.to_map sels
     |> Solver.Output.RoleMap.to_seq
     |> List.of_seq
-    |> List.filter_map (fun (_role, sel) -> Input.version (Solver.Output.unwrap sel))
+    |> List.filter_map ~f:(fun (_role, sel) -> Input.version (Solver.Output.unwrap sel))
   ;;
 end