fixup minor format

Author: kit-ty-kate

src/client/opamCommands.ml

@@ -2593,7 +2593,8 @@ let repository cli =
         then switches
         else all_switches
       in
-      OpamRepositoryCommand.show_repo rt ~switches (OpamRepositoryName.of_string repo_name);
+      OpamRepositoryCommand.show_repo rt ~switches
+        (OpamRepositoryName.of_string repo_name);
       `Ok ()
     | command, params -> bad_subcommand ~cli commands ("repository", command, params)
   in

src/client/opamRepositoryCommand.ml

@@ -220,23 +220,30 @@ let list_all rt ~short =
   OpamConsole.print_table stdout ~sep:" "
 
 let show_repo rt ~switches repo_name =
-  let repos = List.filter_map (fun sw ->
-    let sw_name = OpamSwitch.to_string sw in
-    match switch_repos rt sw |> List.mapi (fun i repo -> (i+1, repo)) |> List.filter (fun (_, repo) -> repo = repo_name) with
-    | [] -> None
-    | repos -> Some (sw_name, repos)
-  ) switches in
-  List.iter (fun (sw_name, repos)  ->
+  let repos =
+    List.filter_map (fun sw ->
+        let repos =
+          switch_repos rt sw |>
+          List.mapi (fun i repo -> (i+1, repo)) |>
+          List.filter (fun (_, repo) -> OpamRepositoryName.equal repo repo_name)
+        in
+        match repos with
+        | [] -> None
+        | repos -> Some (sw, repos)
+      ) switches
+  in
+  List.iter (fun (sw, repos)  ->
     List.iter (fun (rank, repo) ->
           try
             let r = OpamRepositoryName.Map.find repo rt.repositories in
-            let url = if r.repo_url = OpamUrl.empty then "-" else
-              OpamUrl.to_string r.repo_url |> OpamConsole.colorise `underline in
-            OpamConsole.msg "switch: %s\n" sw_name;
+            let url =
+              OpamConsole.colorise `underline (OpamUrl.to_string r.repo_url)
+            in
+            OpamConsole.msg "switch: %s\n" (OpamSwitch.to_string sw);
             OpamConsole.msg "url: %s\n" url;
             OpamConsole.msg "rank: %d\n" rank;
-            ()
-          with Not_found -> "not found" |> OpamConsole.colorise `red |> OpamConsole.msg "%s")
+          with Not_found ->
+            OpamConsole.msg "%s" (OpamConsole.colorise `red "not found"))
       repos)
     repos