fixup

ocaml · Feb 25, 2025 · 5a93cc3 · 5a93cc3
1 parent 38f36b6
commit 5a93cc3
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/client/opamAuxCommands.ml b/src/client/opamAuxCommands.ml
@@ -260,16 +260,15 @@ let autopin_aux st ?quiet ?(for_view=false) ?recurse ?subpath ?locked
   let atoms =
     (* Ensure the atoms are set to their expected version *)
     List.map (function
-        | name, None ->
+        | (name, None) as atom ->
           begin match
             List.find_opt
               (fun {pin_name; _} -> OpamPackage.Name.equal pin_name name)
               to_pin
           with
-          | None -> (name, Some (`Eq, OpamPinCommand.default_version st name))
-          | Some {pin = {pin_file; _}; _} ->
-            let opam_file = OpamFile.OPAM.safe_read pin_file in
-            let v = match OpamFile.OPAM.version_opt opam_file with
+          | None -> atom
+          | Some {pin_opam = lazy opam; _} ->
+            let v = match OpamFile.OPAM.version_opt opam with
               | None -> OpamPinCommand.default_version st name
               | Some v -> v
             in