refactor: reuse project_pins from Pkg.Lock instead of duplicating

Signed-off-by: Sachin Beniwal <s474996633@gmail.com>

Author: benodiwal

bin/lock_dev_tool.ml

@@ -66,22 +66,11 @@ let make_local_package_wrapping_dev_tool ~dev_tool ~dev_tool_version ~extra_depe
   }
 ;;
 
-(* Get pins from a project (both from pin stanzas and package pin_depends) *)
-let project_and_package_pins project =
-  let dir = Dune_project.root project in
-  let pins = Dune_project.pins project in
-  let packages = Dune_project.packages project in
-  Pin.DB.add_opam_pins (Pin.DB.of_stanza ~dir pins) packages
-;;
-
 (* Collect all pins from all projects and filter to only compiler packages.
    This allows dev tools to use the same pinned compiler as the main project. *)
 let compiler_pins =
   let open Memo.O in
-  Dune_rules.Dune_load.projects ()
-  >>| List.fold_left ~init:Pin.DB.empty ~f:(fun acc project ->
-    let pins = project_and_package_pins project in
-    Pin.DB.combine_exn acc pins)
+  Pkg.Lock.project_pins
   >>| Pin.DB.filter_by_package_names
         ~package_names:Dune_pkg.Dev_tool.compiler_package_names
 ;;

bin/pkg/lock.mli

@@ -1,5 +1,8 @@
 open Import
 
+(** Collect all pins from all projects in the workspace. *)
+val project_pins : Dune_pkg.Pin.DB.t Memo.t
+
 val solve
   :  Workspace.t
   -> local_packages:Dune_pkg.Local_package.t Package_name.Map.t