From 3b3aabbfff82437eab702c9876e09989be92ea9f Mon Sep 17 00:00:00 2001
From: "R. Boujbel" <rjbou@ocamlpro.com>
Date: Thu, 28 Nov 2024 19:56:25 +0100
Subject: [PATCH] Update src/client/opamConfigCommand.ml

Co-authored-by: Kate <kit-ty-kate@outlook.com>
---
 src/client/opamConfigCommand.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/client/opamConfigCommand.ml b/src/client/opamConfigCommand.ml
index 47c426f3b53..733498eb9ca 100644
--- 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