refactor(pkg): remove an unnecessary [result] variable

Signed-off-by: Rudi Grinberg <[email protected]>

<!-- ps-id: cec60771-985f-423e-8258-bff703baba20 -->

src/dune_pkg/opam_solver.ml

@@ -617,24 +617,22 @@ let opam_package_to_lock_file_pkg
 ;;
 
 let solve_package_list packages context =
-  let* result =
-    Fiber.collect_errors (fun () ->
-      (* [Solver.solve] returns [Error] when it's unable to find a solution to
-         the dependencies, but can also raise exceptions, for example if opam
-         is unable to parse an opam file in the package repository. To prevent
-         an unexpected opam exception from crashing dune, we catch all
-         exceptions raised by the solver and report them as [User_error]s
-         instead. *)
-      Solver.solve context packages)
-    >>| function
-    | Ok (Ok res) -> Ok res
-    | Ok (Error e) -> Error (`Diagnostics e)
-    | Error [] -> assert false
-    | Error (exn :: _) ->
-      (* CR-rgrinberg: this needs to be handled right *)
-      Error (`Exn exn.exn)
-  in
-  match result with
+  Fiber.collect_errors (fun () ->
+    (* [Solver.solve] returns [Error] when it's unable to find a solution to
+       the dependencies, but can also raise exceptions, for example if opam
+       is unable to parse an opam file in the package repository. To prevent
+       an unexpected opam exception from crashing dune, we catch all
+       exceptions raised by the solver and report them as [User_error]s
+       instead. *)
+    Solver.solve context packages)
+  >>| (function
+         | Ok (Ok res) -> Ok res
+         | Ok (Error e) -> Error (`Diagnostics e)
+         | Error [] -> assert false
+         | Error (exn :: _) ->
+           (* CR-rgrinberg: this needs to be handled right *)
+           Error (`Exn exn.exn))
+  >>= function
   | Error (`Exn exn) ->
     (match exn with
      | OpamPp.(Bad_format _ | Bad_format_list _ | Bad_version _) as bad_format ->