From 8c9936a5a9c3dd638fc943fa5d2360a9109e2b81 Mon Sep 17 00:00:00 2001 From: Kate Date: Tue, 15 Feb 2022 16:55:01 +0000 Subject: [PATCH] Apply suggestions from code review --- src/format/opamFile.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/format/opamFile.ml b/src/format/opamFile.ml index 13cbec1552e..9c1adff33e6 100644 --- 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 =