amdin repo upgrade: use / operators to simplify code

Author: rjbou

src/client/opamAdminRepoUpgrade.ml

@@ -161,7 +161,7 @@ let do_upgrade repo_root =
 
   let compilers =
     let compilers_dir =
-      OpamFilename.Op.(OpamRepositoryRoot.Dir.to_dir repo_root / "compilers")
+      OpamRepositoryRoot.Dir.Op.(repo_root / "compilers")
     in
     if OpamFilename.exists_dir compilers_dir then (
       List.fold_left (fun map f ->
@@ -451,18 +451,18 @@ let clear_cache () =
 
 let do_upgrade_mirror repo_root base_url =
   OpamRepositoryRoot.Dir.with_tmp @@ fun tmp_mirror_dir ->
-  let open OpamFilename.Op in
+  let open OpamRepositoryRoot.Dir.Op in
   let copy_dir d =
-    let src = OpamRepositoryRoot.Dir.to_dir repo_root / d in
+    let src = repo_root / d in
     if OpamFilename.exists_dir src then
       OpamFilename.copy_dir
-        ~src ~dst:(OpamRepositoryRoot.Dir.to_dir tmp_mirror_dir / d)
+        ~src ~dst:(tmp_mirror_dir / d)
   in
   let copy_file f =
-    let src = OpamRepositoryRoot.Dir.to_dir repo_root // f in
+    let src = repo_root // f in
     if OpamFilename.exists src then
       OpamFilename.copy
-        ~src ~dst:(OpamRepositoryRoot.Dir.to_dir tmp_mirror_dir // f)
+        ~src ~dst:(tmp_mirror_dir // f)
   in
   copy_dir "packages";
   copy_dir "compilers";
@@ -504,12 +504,11 @@ let do_upgrade_mirror repo_root base_url =
   OpamFile.Repo.write repo_file repo_12;
   OpamFile.Repo.write
     (OpamFile.make
-       OpamFilename.Op.(OpamRepositoryRoot.Dir.to_dir tmp_mirror_dir // "repo"))
+       OpamRepositoryRoot.Dir.Op.(tmp_mirror_dir // "repo"))
     repo_20;
   let dir20 =
     OpamRepositoryRoot.Dir.of_dir
-      OpamFilename.Op.(OpamRepositoryRoot.Dir.to_dir repo_root /
-                       upgradeto_version_string)
+      OpamRepositoryRoot.Dir.Op.(repo_root / upgradeto_version_string)
   in
   OpamRepositoryRoot.Dir.remove dir20;
   OpamRepositoryRoot.Dir.move ~src:tmp_mirror_dir ~dst:dir20;

src/client/opamListCommand.ml

@@ -880,7 +880,7 @@ let info st ~fields ~raw ~where ?normalise ?(show_empty=false)
                rdir
            else
              OpamFilename.Dir.to_string
-               OpamFilename.Op.(OpamRepositoryRoot.Dir.to_dir repo_dir / rdir)
+               OpamRepositoryRoot.Dir.Op.(repo_dir / rdir)
          | None -> "<nowhere>")
     else if raw && fields = [] then
       OpamFile.OPAM.write_to_channel stdout opam