Update src/client/opamConfigCommand.ml

Co-authored-by: Kate <kit-ty-kate@outlook.com>
ocaml · Nov 28, 2024 · 3b3aabb · 3b3aabb
1 parent 49f87e4
commit 3b3aabb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/client/opamConfigCommand.ml b/src/client/opamConfigCommand.ml
@@ -135,7 +135,7 @@ let print_bindingss_env output env =
   let rec aux = function
     | [] -> ()
     | (k, v, _) :: r ->
-      if not (List.exists (fun (k1, _, _) -> k = k1) r) then
+      if not (List.exists (fun (k1, _, _) -> (k : string) = (k1 : string)) r) then
         Printf.ksprintf output "%s=%s\n" k v;
       aux r
   in