switch: Correctly handle pkg.version pattern with 'list-available'

ocaml · Nov 30, 2024 · 06b9efd · 06b9efd
1 parent 7f19d54
commit 06b9efd
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 16 deletions.
diff --git a/master_changes.md b/master_changes.md
@@ -40,6 +40,7 @@ users)
 ## Switch
   * [BUG] Fix `opam switch remove <dir>` failure when it is a linked switch [#6276 @btjorge - fix #6275]
   * Fix `opam switch list-available` when given several arguments [#6318 @kit-ty-kate]
+  * [BUG] Correctly handle `pkg.version` pattern in `opam switch list-available` [#6186 @arozovyk - fix #6152]
 
 ## Config
 

diff --git a/src/client/opamCommands.ml b/src/client/opamCommands.ml
@@ -2894,18 +2894,8 @@ let switch cli =
       OpamConsole.msg "# Listing available compilers from repositories: %s\n"
         (OpamStd.List.concat_map ", " OpamRepositoryName.to_string
            (OpamStd.Option.default (OpamGlobalState.repos_list gt) repos));
-      let filters =
-        List.map (fun patt ->
-            OpamListCommand.Pattern
-              ({ OpamListCommand.default_pattern_selector with
-                 OpamListCommand.fields = ["name"; "version"] },
-               patt))
-          pattlist
-      in
-      let all_compilers =
-        OpamListCommand.filter ~base:compilers st
-          (OpamFormula.ors (List.map (fun f -> OpamFormula.Atom f) filters))
-      in
+      let filters = OpamListCommand.pattern_selector pattlist in
+      let all_compilers = OpamListCommand.filter ~base:compilers st filters in
       let compilers =
         if all then
           all_compilers

diff --git a/tests/reftests/switch-list-available.test b/tests/reftests/switch-list-available.test
@@ -99,19 +99,25 @@ comp-b 3
 comp-b 4
 ### opam switch list-available comp-b.1
 # Listing available compilers from repositories: default
-# No matches found
+# Name # Version # Synopsis
+comp-b 1
 ### opam switch list-available comp-b.1 --all
 # Listing available compilers from repositories: default
-# No matches found
+# Name # Version # Synopsis
+comp-b 1
 ### opam switch list-available comp-b.2
 # Listing available compilers from repositories: default
 # No matches found
+[NOTE] Some compilers have been hidden (e.g. pre-releases). If you want to display them, run: 'opam switch list-available --all'
 ### opam switch list-available comp-b.2 --all
 # Listing available compilers from repositories: default
-# No matches found
+# Name # Version # Synopsis
+comp-b 2
 ### opam switch list-available comp-b.1 comp-b.2 --all
 # Listing available compilers from repositories: default
-# No matches found
+# Name # Version # Synopsis
+comp-b 1
+comp-b 2
 ### <pkg:comp_c.1>
 opam-version: "2.0"
 flags: compiler