Copy files instead of rsync when they are in a local cache

ocaml · Jul 10, 2020 · bcf4fea · bcf4fea
1 parent 1b645db
commit bcf4fea
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/repository/opamRepository.ml b/src/repository/opamRepository.ml
@@ -80,9 +80,15 @@ let fetch_from_cache =
         ~quiet:true ~validate:false ~overwrite:true ~checksum
         url file
     | `rsync ->
-      (OpamLocal.rsync_file url file @@| function
-        | Result _ | Up_to_date _-> ()
-        | Not_available (s,l) -> raise (OpamDownload.Download_fail (s,l)))
+      begin match OpamUrl.local_file url with
+        | Some src ->
+          OpamFilename.copy src file;
+          OpamProcess.Job.Op.Done ()
+        | None ->
+          (OpamLocal.rsync_file url file @@| function
+            | Result _ | Up_to_date _-> ()
+            | Not_available (s,l) -> raise (OpamDownload.Download_fail (s,l)))
+      end
     | #OpamUrl.version_control ->
       failwith "Version control not allowed as cache URL"
   in