TMP: disable local repo tarring

OCamlPro · Feb 25, 2021 · 567cb24 · 567cb24
1 parent 20d0dcb
commit 567cb24
Showing 1 changed file with 14 additions and 14 deletions.
diff --git a/src/state/opamUpdate.ml b/src/state/opamUpdate.ml
@@ -115,24 +115,24 @@ let repository rt repo =
           (OpamConsole.colorise `bold (OpamUrl.to_string repo.repo_url))
           msg)
     (OpamFile.Repo.announce repo_file);
-  OpamFilename.make_tar_gz_job
-    (OpamRepositoryPath.tar gt.root repo.repo_name)
-    repo_root
-  @@+ function
-  | Some e ->
-    OpamStd.Exn.fatal e;
-    Printf.ksprintf failwith
-      "Failed to regenerate local repository archive: %s"
-      (Printexc.to_string e)
-  | None ->
+  (* OpamFilename.make_tar_gz_job
+   *   (OpamRepositoryPath.tar gt.root repo.repo_name)
+   *   repo_root
+   * @@+ function
+   * | Some e ->
+   *   OpamStd.Exn.fatal e;
+   *   Printf.ksprintf failwith
+   *     "Failed to regenerate local repository archive: %s"
+   *     (Printexc.to_string e)
+   * | None -> *)
     let opams =
       OpamRepositoryState.load_opams_from_dir repo.repo_name repo_root
     in
     let local_dir = OpamRepositoryPath.root gt.root repo.repo_name in
-    if OpamFilename.exists_dir local_dir then
-      (* Mark the obsolete local directory for deletion once we complete: it's
-         no longer needed once we have a tar.gz *)
-      Hashtbl.add rt.repos_tmp repo.repo_name (lazy local_dir);
+    (* if OpamFilename.exists_dir local_dir then
+     *   (\* Mark the obsolete local directory for deletion once we complete: it's
+     *      no longer needed once we have a tar.gz *\)
+     *   Hashtbl.add rt.repos_tmp repo.repo_name (lazy local_dir); *)
     Done (
       (* Return an update function to make parallel execution possible *)
       fun rt ->