Apply suggestions from code review

ocaml · Feb 15, 2022 · 8c9936a · 8c9936a
1 parent 7ff0567
commit 8c9936a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/format/opamFile.ml b/src/format/opamFile.ml
@@ -1267,7 +1267,7 @@ module ConfigSyntax = struct
   let switch t = t.switch
   let previous_switch t =
     let not_current = match t.switch with
-      | Some switch -> fun x -> not (String.equal switch x)
+      | Some switch -> fun x -> not (OpamSwitch.equal switch x)
       | None -> fun _ -> true
     in
     OpamStd.List.find_opt (fun switch ->
@@ -1305,7 +1305,7 @@ module ConfigSyntax = struct
     { t with installed_switches }
   let with_switch switch t =
     let installed_switches =
-      switch :: List.filter (fun x -> not (String.equal switch x)) t.installed_switches
+      switch :: List.filter (fun x -> not (OpamSwitch.equal switch x)) t.installed_switches
     in
     { t with switch = Some switch; installed_switches }
   let with_switch_opt switch_opt t =